projects
/
xscreensaver
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
http://www.jwz.org/xscreensaver/xscreensaver-5.09.tar.gz
[xscreensaver]
/
hacks
/
munge-ad.pl
diff --git
a/hacks/munge-ad.pl
b/hacks/munge-ad.pl
index 12f923dce3b5969b4a37f5fde14f08f40a64ef05..f5089a64b897d06be35b0d58eb3fe9aa56596433 100755
(executable)
--- a/
hacks/munge-ad.pl
+++ b/
hacks/munge-ad.pl
@@
-18,7
+18,7
@@
use diagnostics;
use strict;
my $progname = $0; $progname =~ s@.*/@@g;
use strict;
my $progname = $0; $progname =~ s@.*/@@g;
-my $version = q{ $Revision: 1.
3
$ }; $version =~ s/^[^\d]+([\d.]+).*/$1/;
+my $version = q{ $Revision: 1.
4
$ }; $version =~ s/^[^\d]+([\d.]+).*/$1/;
my $verbose = 0;
my $verbose = 0;
@@
-85,8
+85,10
@@
sub parse_makefiles() {
close IN;
$body =~ s/\\\n//gs;
close IN;
$body =~ s/\\\n//gs;
- my ($var) = ($body =~ m/^RETIRED_EXES\s*=\s*(.*)$/mi);
+ my ($var) = ($body =~ m/^RETIRED_EXES\s*=\s*(.*)$/mi);
+ my ($var2) = ($body =~ m/^RETIRED_GL_EXES\s*=\s*(.*)$/mi);
error ("no RETIRED_EXES in $mf") unless $var;
error ("no RETIRED_EXES in $mf") unless $var;
+ $var .= " $var2" if $var2;
foreach my $hack (split (/\s+/, $var)) {
$disable{$hack} = 2;
}
foreach my $hack (split (/\s+/, $var)) {
$disable{$hack} = 2;
}