Off-by-one. Fix.

[pr0n] / perl / Sesse / pr0n / Index.pm

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 849870f4ec8e8add783689ce96967823eb0d0804..e91d9c17b485264f9fd6b3b2acf5a7722513c72f 100644 (file)
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -201,7 +201,7 @@ sub handler {
 
                my $toclose = 0;
                my $lastupl = "";
-               my $img_num = $start;
+               my $img_num = (defined($start) && defined($num)) ? $start : 1;
                
                # Print out all thumbnails
                if ($rot == 1) {