+# Parse the RETIRED_EXES variable from the Makefiles to populate %disable.
+#
+sub parse_makefiles() {
+ foreach my $mf ( "Makefile.in", "glx/Makefile.in" ) {
+ my $body = '';
+ local *IN;
+ open (IN, "<$mf") || error ("$mf: $!");
+ while (<IN>) { $body .= $_; }
+ close IN;
+
+ $body =~ s/\\\n//gs;
+ my ($var) = ($body =~ m/^RETIRED_EXES\s*=\s*(.*)$/mi);
+ error ("no RETIRED_EXES in $mf") unless $var;
+ foreach my $hack (split (/\s+/, $var)) {
+ $disable{$hack} = 2;
+ }
+ }
+}
+
+