1 files changed, 12 insertions, 0 deletions
diff --git a/rebuild-scripts/check_release b/rebuild-scripts/check_release
new file mode 100755
index 0000000..74b9999
--- /dev/null
+++ b/rebuild-scripts/check_release
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+# $Id: check_release,v 1.1.1.1 2006/10/06 22:22:02 c4chris Exp $
+use strict;
+while ( <> ) {
+  s/\s+$//;
+  my @F = split;
+  my ($r) = $F[6] =~ /-([^-]+)$/;
+  $r =~ s/\.fc6//;
+  next if $r =~ /^\d+$/;
+  print "$_\n";
+}
+exit 0;