X-Git-Url: http://git.hungrycats.org/cgi-bin/gitweb.cgi?p=xscreensaver;a=blobdiff_plain;f=driver%2Fxscreensaver-getimage-video;h=32117ff23589e7cd60bc7ab24277a19a5fcaf72f;hp=6b9c1408ea87f94a661061caae1ea666ffc0eccb;hb=6b1c86cf395f59389e4ece4ea8f4bea2c332745b;hpb=c8c6deae79b408cffbc88043c766b3bc12cf0f13 diff --git a/driver/xscreensaver-getimage-video b/driver/xscreensaver-getimage-video index 6b9c1408..32117ff2 100755 --- a/driver/xscreensaver-getimage-video +++ b/driver/xscreensaver-getimage-video @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# Copyright © 2001-2007 Jamie Zawinski . +# Copyright © 2001-2008 Jamie Zawinski . # # Permission to use, copy, modify, distribute, and sell this software and its # documentation for any purpose is hereby granted without fee, provided that @@ -25,11 +25,11 @@ # Created: 13-Apr-2001. require 5; -use diagnostics; +#use diagnostics; # Fails on some MacOS 10.5 systems use strict; my $progname = $0; $progname =~ s@.*/@@g; -my $version = q{ $Revision: 1.17 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/; +my $version = q{ $Revision: 1.18 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/; my $tmpdir = $ENV{TMPDIR} || "/tmp"; my $tmpfile = sprintf("%s/xssv.%08x.ppm", $tmpdir, rand(0xFFFFFFFF));