From 604e0ab8689536f5ad78eba1035069a9645516e4 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 27 Oct 2000 12:05:06 +0000
Subject: Make sure $meta_class is defined in readCompsUsers (for HTTP hack)
 before reading a compssUsers file.

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index ea9b0f154..592f0143a 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -676,7 +676,7 @@ sub readCompssUsers {
 	$_ = $packages->[0]{$_} or log::l("unknown package $_ (in compssUsers)") foreach @$l;
     };
     my $file = 'Mandrake/base/compssUsers';
-    my $f = install_any::getFile("$file.$meta_class") || install_any::getFile($file) or die "can't find $file";
+    my $f = $meta_class && install_any::getFile("$file.$meta_class") || install_any::getFile($file) or die "can't find $file";
     foreach (<$f>) {
 	/^\s*$/ || /^#/ and next;
 	s/#.*//;
-- 
cgit v1.2.1