Off-by-one. Fix.

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 754c98804ace0d5df8f364a31e4885e772455933..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 $toclose = 0;
                my $lastupl = "";

-               my $img_num = (defined($start) && defined($num)) ? $start : 0;
+               my $img_num = (defined($start) && defined($num)) ? $start : 1;

                
                # Print out all thumbnails
                if ($rot == 1) {
                
                # Print out all thumbnails
                if ($rot == 1) {