summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-03-06 15:31:01 +0000
committerFrancois Pons <fpons@mandriva.com>2002-03-06 15:31:01 +0000
commit24001cf2eef477fe59dc4c81ef990306a39f38ff (patch)
tree1a07b510febb19cd0123052e58a0ec29fe556094
parent5a85feb949e82db7f05468c7c6e9e148930800a1 (diff)
downloaddrakx-24001cf2eef477fe59dc4c81ef990306a39f38ff.tar
drakx-24001cf2eef477fe59dc4c81ef990306a39f38ff.tar.gz
drakx-24001cf2eef477fe59dc4c81ef990306a39f38ff.tar.bz2
drakx-24001cf2eef477fe59dc4c81ef990306a39f38ff.tar.xz
drakx-24001cf2eef477fe59dc4c81ef990306a39f38ff.zip
fixed when hdlist gives no new package (new name) but only obsoleted package or
updated package, ie security updates may appreciate.
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index bd2ad52b4..f91365ddc 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -488,7 +488,7 @@ sub psUsingHdlist {
#- update maximal index.
$m->{max} = $packages->{count} - 1;
- $m->{max} >= $m->{min} or die "nothing found while parsing $newf";
+ $m->{max} >= $m->{min} || $relocated > 0 || $ignored > 0 or die "nothing found while parsing $newf";
$relocated > 0 and log::l("relocated $relocated headers in $hdlist");
$ignored > 0 and log::l("ignored $ignored headers in $hdlist");
log::l("read " . ($m->{max} - $m->{min} + 1) . " new headers in $hdlist");