X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?p=xscreensaver;a=blobdiff_plain;f=driver%2Fxscreensaver-getimage-file;h=402b1439dc413607c8dce4222e853efb2a222217;hp=0766d9ed91acedbe19fb7d9383b9b71f7e6586fd;hb=3c58fb6311db49c46f1670922933b27c6ea0c065;hpb=585e1a6717d1dd9b90fbb53acaaae82106354d33

diff --git a/driver/xscreensaver-getimage-file b/driver/xscreensaver-getimage-file
index 0766d9ed..402b1439 100755
--- a/driver/xscreensaver-getimage-file
+++ b/driver/xscreensaver-getimage-file
@@ -32,7 +32,7 @@ use Fcntl;
 
 
 my $progname = $0; $progname =~ s@.*/@@g;
-my $version = q{ $Revision: 1.4 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
+my $version = q{ $Revision: 1.5 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
 
 my $verbose = 0;
 
@@ -133,7 +133,7 @@ sub find_random_file {
 
   @all_files = sort(@all_files);
 
-  my $n = int (rand ($#all_files));
+  my $n = int (rand ($#all_files + 1));
   my $file = $all_files[$n];
 
   print STDERR "$progname: chose file $n: $file\n" if ($verbose > 1);