From 604e0ab8689536f5ad78eba1035069a9645516e4 Mon Sep 17 00:00:00 2001 From: Francois Pons 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(-) 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