1 files changed, 21 insertions, 0 deletions
diff --git a/rebuild-scripts/rm_noarch b/rebuild-scripts/rm_noarch
new file mode 100755
index 0000000..317c6fe
--- /dev/null
+++ b/rebuild-scripts/rm_noarch
@@ -0,0 +1,21 @@
+#!/usr/bin/env perl
+# $Id: rm_noarch,v 1.1.1.1 2006/10/06 22:22:02 c4chris Exp $
+use strict;
+my %B;
+local *IN;
+open IN, "pkg_noarch.txt" or die "Couldn't open pkg_noarch.txt: $!";
+while ( <IN> ) {
+  chop;
+  my @F = split;
+  my $name = $F[4];
+  $name =~ s/-[^-]+-[^-]+\.src\.rpm$//;
+  $B{$name} = 1;
+}
+close IN;
+while ( <> ) {
+  my @F = split;
+  my $name = $F[5];
+  next if defined $B{$name};
+  print;
+}
+exit 0;