diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-01-04 15:31:00 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-01-04 15:31:00 +0000 |
| commit | 12bafd6a1cace776dd822a2bda161edf329968d5 (patch) | |
| tree | afee07930d495e7d670ec909534dcacaa0b61f92 | |
| parent | f97e6885309455ac9ac028e631bfb1f626c44cb7 (diff) | |
| download | drakx-12bafd6a1cace776dd822a2bda161edf329968d5.tar drakx-12bafd6a1cace776dd822a2bda161edf329968d5.tar.gz drakx-12bafd6a1cace776dd822a2bda161edf329968d5.tar.bz2 drakx-12bafd6a1cace776dd822a2bda161edf329968d5.tar.xz drakx-12bafd6a1cace776dd822a2bda161edf329968d5.zip | |
fixed some old $p->{file} by new $p->[$FILE]
| -rw-r--r-- | perl-install/pkgs.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 5d9bd2105..20d8ce003 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -798,7 +798,7 @@ sub selectPackagesAlreadyInstalled { my $version_cmp = versionCompare(c::headerGetEntry($header, 'version'), packageVersion($p)); my $version_rel_test = $version_cmp > 0 || $version_cmp == 0 && versionCompare(c::headerGetEntry($header, 'release'), packageRelease($p)) >= 0; - $version_rel_test or log::l("keeping an older package, avoiding selecting $p->{file}"); + $version_rel_test or log::l("keeping an older package, avoiding selecting $p->[$FILE]"); packageSetFlagInstalled($p, 1); } }); @@ -1169,7 +1169,7 @@ sub install($$$;$$) { $min < $_ and $min = $_; } } else { - log::l("ignoring package $dep->{file} as its medium is not selected"); + log::l("ignoring package $dep->[$FILE] as its medium is not selected"); } --$nb; #- make sure the package is not taken into account as its medium is not selected. } |