summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-01-04 15:31:00 +0000
committerFrancois Pons <fpons@mandriva.com>2001-01-04 15:31:00 +0000
commit12bafd6a1cace776dd822a2bda161edf329968d5 (patch)
treeafee07930d495e7d670ec909534dcacaa0b61f92
parentf97e6885309455ac9ac028e631bfb1f626c44cb7 (diff)
downloaddrakx-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.pm4
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.
}