Ignore the cross-* experimental packages.
authorRichard W.M. Jones <rjones@redhat.com>
Tue, 24 Feb 2009 09:26:18 +0000 (09:26 +0000)
committerRichard W.M. Jones <rjones@redhat.com>
Tue, 24 Feb 2009 09:26:18 +0000 (09:26 +0000)
status.pl

index a8e5810..e68fb5e 100755 (executable)
--- a/status.pl
+++ b/status.pl
@@ -68,8 +68,12 @@ my %ignore_pending = ();
 open IGNORE, "IGNORE" or die "IGNORE: $!\n";
 while (<IGNORE>) {
     next if /^\#/ || /^$/;
 open IGNORE, "IGNORE" or die "IGNORE: $!\n";
 while (<IGNORE>) {
     next if /^\#/ || /^$/;
-    m/(.*)/; # untaint
-    $ignore_pending{"mingw32-$1"} = 1;
+    if (/^cross-(.*)/) {
+       $ignore_pending{"mingw32-$1"} = 1;
+    } else {
+       m/(.*)/; # untaint
+       $ignore_pending{"mingw32-$1"} = 1;
+    }
 }
 close IGNORE;
 
 }
 close IGNORE;