From http://www.jwz.org/xscreensaver/xscreensaver-5.16.tar.gz
[xscreensaver] / hacks / vidwhacker
index 6cd24f306c736fc5518c539496c5c7e9734761bd..c7cd5d47f43ea1493ad3a7730913b16ddb1a5a4b 100755 (executable)
@@ -21,7 +21,7 @@ use diagnostics;
 use strict;
 
 my $progname = $0; $progname =~ s@.*/@@g;
-my $version = q{ $Revision: 1.30 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
+my $version = q{ $Revision: 1.31 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;
 
 my $verbose = 0;
 my $use_stdin = 0;
@@ -326,6 +326,7 @@ sub get_ppm() {
       my $fn = `$cmd`;
       $fn =~ s/\n$//s;
       error ("didn't get a file?") if ($fn eq "");
+      $fn = "$imagedir/$fn" unless ($fn =~ m@^/@s);
 
       print STDERR "$progname: selected file $fn\n" if ($verbose > 1);