ftp://updates.redhat.com/enterprise/2.1AS/en/os/SRPMS/xscreensaver-3.33-4.rhel21...

[xscreensaver] / driver / xscreensaver-getimage-file

diff --git a/driver/xscreensaver-getimage-file b/driver/xscreensaver-getimage-file
index 0766d9ed91acedbe19fb7d9383b9b71f7e6586fd..402b1439dc413607c8dce4222e853efb2a222217 100755 (executable)
--- 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);