From d004436dc848800c9d65b90e39c39836c4d44cdf Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 1 Jan 2000 17:09:26 +0000 Subject: no_comment --- perl-install/pkgs.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index e9b892954..a4b0b22e9 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -15,11 +15,12 @@ use c; my @skip_list = qw( XFree86-8514 XFree86-AGX XFree86-Mach32 XFree86-Mach64 XFree86-Mach8 XFree86-Mono XFree86-P9000 XFree86-S3 XFree86-S3V XFree86-SVGA XFree86-W32 XFree86-I128 -XFree86-Sun XFree86-SunMono XFree86-Sun24 XFree86-3DLabs kernel-BOOT +XFree86-Sun XFree86-SunMono XFree86-Sun24 XFree86-3DLabs MySQL MySQL_GPL mod_php3 midgard postfix metroess metrotmpl +kernel-linus kernel-secure kernel-fb kernel-BOOT hackkernel hackkernel-BOOT hackkernel-fb hackkernel-headers hackkernel-pcmcia-cs hackkernel-smp hackkernel-smp-fb -autoirpm autoirpm-icons numlock kernel-linus +autoirpm autoirpm-icons numlock ); my %by_lang = ( @@ -252,9 +253,9 @@ sub readCompssUsers { if (/^(\S.*)/) { push @sorted, $1; $compssUsers{$1} = $l = []; - } elsif (/\s+\+(.*)/) { + } elsif (/\s+\+(\S+)/) { push @$l, $packages->{$1} || do { log::l("unknown package $1 (in compssUsers)"); next }; - } elsif (/\s+(.*)/) { + } elsif (/\s+(\S+)/) { my $p = $compss; $p &&= $p->{childs}{$_} foreach split ':', $1; $p or log::l("unknown category $1 (in compssUsers)"), next; -- cgit v1.2.1