diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-24 19:02:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-24 19:02:16 +0000 |
| commit | 10b649b6503f47388f1548c8ba9391dd6ce0284e (patch) | |
| tree | 6bc1fe238a7a28721cfd15b52946e67d236c8277 /perl-install/pkgs.pm | |
| parent | ed18d4ad1743445dc1c49d65b5a64a0c73510edd (diff) | |
| download | drakx-backup-do-not-use-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar drakx-backup-do-not-use-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar.gz drakx-backup-do-not-use-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar.bz2 drakx-backup-do-not-use-10b649b6503f47388f1548c8ba9391dd6ce0284e.tar.xz drakx-backup-do-not-use-10b649b6503f47388f1548c8ba9391dd6ce0284e.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 970fa2209..d10713c5b 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -11,19 +11,12 @@ use smp; use fs; use lang; -my @skipThesesPackages = qw(XFree86-8514 XFree86-AGX XFree86-FBDev XFree86-Mach32 XFree86-Mach64 - XFree86-Mach8 XFree86-Mono XFree86-P9000 XFree86-S3 XFree86-S3V - XFree86-SVGA XFree86-VGA16 XFree86-W32 XFree86-I128 XFree86-Sun - XFree86-SunMono XFree86-Xnest postfix - XFree86-Sun24 XFree86-3DLabs kernel-boot metroess metrotmpl); - 1; -sub skipThisPackage { member($_[0], @skipThesesPackages) } sub Package { my ($packages, $name) = @_; - $packages->{$name} ;# or die "unknown package $name"; hack hack :( + $packages->{$name} or log::l("unknown package $name") && undef; } sub select($$;$) { @@ -140,10 +133,8 @@ sub readCompss($) { my ($options, $name) = /^(\S*)\s+(.*?)\s*$/ or die "bad line in compss: $_"; if ($name =~ /(.*):$/) { - if ($category) { - push @compss, $category; - $ps = []; - } + push @compss, $category if $category; + $ps = []; $category = { options => $options, name => $1, packages => $ps }; } else { my $p = $packages->{$name} or log::l("unknown package $name (in compss)"), next; |