diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-03-06 15:31:01 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-03-06 15:31:01 +0000 |
| commit | 24001cf2eef477fe59dc4c81ef990306a39f38ff (patch) | |
| tree | 1a07b510febb19cd0123052e58a0ec29fe556094 | |
| parent | 5a85feb949e82db7f05468c7c6e9e148930800a1 (diff) | |
| download | drakx-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.pm | 2 |
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"); |