Clifford Wolf
20 years ago
17 changed files with 36 additions and 16 deletions
Unified View
Diff Options
-
+20 -0misc/archive/checkstages.pl
-
+1 -1package/base/autoconf/autoconf.desc
-
+1 -1package/base/automake/automake.desc
-
+1 -1package/base/binutils/binutils.desc
-
+1 -1package/base/coreutils/coreutils.desc
-
+1 -1package/base/cracklib/cracklib.desc
-
+1 -1package/base/diffutils/diffutils.desc
-
+1 -1package/base/gcc/gcc.desc
-
+1 -1package/base/libtool/libtool.desc
-
+1 -1package/base/mktemp/mktemp.desc
-
+1 -1package/base/pam/pam.desc
-
+1 -1package/base/perl5/perl5.desc
-
+1 -1package/base/shadow/shadow.desc
-
+1 -1package/misc/zsh/zsh.desc
-
+1 -1package/mnemoc/boehm-gc/boehm-gc.desc
-
+1 -1package/tsa/quagga/quagga.desc
-
+1 -1package/tsa/uucp/uucp.desc
@ -0,0 +1,20 @@ |
|||||
|
#!/usr/bin/perl -w |
||||
|
# |
||||
|
# Usage: ./checkstages.pl config/default/packages |
||||
|
|
||||
|
use strict; |
||||
|
|
||||
|
while (<>) { |
||||
|
@_ = split /\s+/; |
||||
|
my ($stages, $pkg) = ($_[1], $_[4]); |
||||
|
|
||||
|
# next if $stages =~ /^0123456789$/; |
||||
|
next if $stages =~ /^.1-------.$/; |
||||
|
next if $stages =~ /^..2------.$/; |
||||
|
next if $stages =~ /^..-3-----.$/; |
||||
|
next if $stages =~ /^..---5---.$/; |
||||
|
next if $stages =~ /^..-----7-.$/; |
||||
|
|
||||
|
print "Bad stages pattern: $stages $pkg\n"; |
||||
|
} |
||||
|
|
||||