X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=driver%2Fxscreensaver-getimage-file;h=49217d50514e98b5b26f1857ee7885519996e5eb;hb=3f9592851ce4ed76a9979bfdd6ec7dc5c457e183;hp=2da17d5958522b907faeff90deed9f1583398441;hpb=a94197e76a5dea5cb60542840809d6c20d0abbf3;p=xscreensaver diff --git a/driver/xscreensaver-getimage-file b/driver/xscreensaver-getimage-file index 2da17d59..49217d50 100755 --- a/driver/xscreensaver-getimage-file +++ b/driver/xscreensaver-getimage-file @@ -29,10 +29,13 @@ use strict; use POSIX; use Fcntl; -use Fcntl ':mode'; + +# use Fcntl ':mode'; # Perl 5.6ism? +use POSIX ':fcntl_h'; # more portable? + my $progname = $0; $progname =~ s@.*/@@g; -my $version = q{ $Revision: 1.8 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/; +my $version = q{ $Revision: 1.10 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/; my $verbose = 0; @@ -44,7 +47,7 @@ my $verbose = 0; # my @programs = ( "chbg -once -xscreensaver -max_grow 4 -max_size 100", - "xv -root -quit -viewonly -maxpect -noresetroot -quick24 -rmode 5" . + "xv -root -quit -viewonly -maxpect +noresetroot -quick24 -rmode 5" . " -rfg black -rbg black", "xli -quiet -fullscreen -onroot -center -border black", "xloadimage -quiet -fullscreen -onroot -center -border black",