diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-01-01 17:09:26 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-01-01 17:09:26 +0000 |
| commit | d004436dc848800c9d65b90e39c39836c4d44cdf (patch) | |
| tree | b37bdcac9dad762a2b692076522785a83533c5f6 /perl-install/pkgs.pm | |
| parent | 1dc94110fc837dbe6cf06806f60c207ab1b64e83 (diff) | |
| download | drakx-backup-do-not-use-d004436dc848800c9d65b90e39c39836c4d44cdf.tar drakx-backup-do-not-use-d004436dc848800c9d65b90e39c39836c4d44cdf.tar.gz drakx-backup-do-not-use-d004436dc848800c9d65b90e39c39836c4d44cdf.tar.bz2 drakx-backup-do-not-use-d004436dc848800c9d65b90e39c39836c4d44cdf.tar.xz drakx-backup-do-not-use-d004436dc848800c9d65b90e39c39836c4d44cdf.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 9 |
1 files changed, 5 insertions, 4 deletions
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; |