diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-10-27 12:05:06 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-10-27 12:05:06 +0000 |
| commit | 604e0ab8689536f5ad78eba1035069a9645516e4 (patch) | |
| tree | 30332d27e3e25057e5ced09e30c3559f2394598f /perl-install | |
| parent | be4f26c73d9caab8835f185ae3f7736165b315e3 (diff) | |
| download | drakx-604e0ab8689536f5ad78eba1035069a9645516e4.tar drakx-604e0ab8689536f5ad78eba1035069a9645516e4.tar.gz drakx-604e0ab8689536f5ad78eba1035069a9645516e4.tar.bz2 drakx-604e0ab8689536f5ad78eba1035069a9645516e4.tar.xz drakx-604e0ab8689536f5ad78eba1035069a9645516e4.zip | |
Make sure $meta_class is defined in readCompsUsers (for HTTP hack)
before reading a compssUsers file.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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/#.*//; |