cleanup MAX_PAGES to make it optional
authorDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 25 Jun 2012 14:03:44 +0000 (14:03 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 25 Jun 2012 14:03:44 +0000 (14:03 +0000)
plack/lib/Plack/App/BookReader.pm

index 3903b9d..119f6d1 100644 (file)
@@ -418,7 +418,9 @@ sub serve_path {
 
                                        my $is_bitmap = -s $txt == $pdf_pages;
 
-                                       $pdf_pages = $ENV{MAX_PAGES} if $pdf_pages > $ENV{MAX_PAGES}; # FIXME
+                                       $pdf_pages = $ENV{MAX_PAGES} if defined $ENV{MAX_PAGES} && $pdf_pages > $ENV{MAX_PAGES}; # FIXME
+
+                                       warn "DIAG: bitmap:$is_bitmap pdf_pages:$pdf_pages\n";
 
                                        foreach my $nr ( 1 .. $pdf_pages ) {
                                                my $page_url = $is_bitmap