Cope with a component column (main, contrib, etc.) in $gPackageSource.
#!/usr/bin/perl
-# $Id: process.in,v 1.52 2002/10/20 13:21:15 cjwatson Exp $
+# $Id: process.in,v 1.53 2002/10/21 08:37:29 cjwatson Exp $
#
# Usage: process nn
# Temps: incoming/Pnn
close(MAINT);
open(SOURCES,"$gPackageSource") || &quit("pkgsrc open: $!");
while (<SOURCES>) {
- next unless m/^(\S+)\s+(\S.*\S)\s*$/;
+ next unless m/^(\S+)\s+\S+\s+(\S.*\S)\s*$/;
($a,$b)=($1,$2);
$a =~ y/A-Z/a-z/;
$pkgsrc{$a} = $b;
#!/usr/bin/perl
-# $Id: service.in,v 1.58 2002/10/20 16:17:21 cjwatson Exp $
+# $Id: service.in,v 1.59 2002/10/21 08:37:29 cjwatson Exp $
# ^ more or less ^
#
# Usage: service <code>.nn
open(SOURCES, "$gPackageSource") || &quit("pkgsrc open: $!");
while (<SOURCES>) {
- next unless m/^(\S+)\s+(\S.*\S)\s*$/;
+ next unless m/^(\S+)\s+\S+\s+(\S.*\S)\s*$/;
my ($a, $b) = ($1, $2);
$pkgsrc{lc($a)} = $b;
}