rebuild-scripts/check_release


1
2
3
4
5
6
7
8
9
10
11
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;