From 10b649b6503f47388f1548c8ba9391dd6ce0284e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 24 Aug 1999 19:02:16 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 15 +++------------
 1 file changed, 3 insertions(+), 12 deletions(-)

(limited to 'perl-install/pkgs.pm')

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;
-- 
cgit v1.2.1