From 39b51c96e54f880be2d2fb909f44118a6c209d7c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 13 Jul 1999 16:23:45 +0000
Subject: *** empty log message ***

---
 perl-install/pkgs.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index a65b3eb90..103af1ec3 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -64,7 +64,9 @@ sub psReadComponentsFile {
 		$inComp = 0;
 		$comps{$current{name}} = { %current };
 	    } else {
-		push @{$current{packages}}, $packages->{$_} || log::w "package $_ does not exist (line $n of comps file)";
+		$packages->{$_} ? 
+		  push @{$current{packages}}, $packages->{$_} :
+		  log::w("package $_ does not exist (line $n of comps file)");
 	    }
 	} else {
 	    my ($selected, $hidden, $name) = /^([01])\s*(--hide)?\s*(.*)/ or die "bad comps file at line $n";
-- 
cgit v1.2.1