diff options
| -rw-r--r-- | perl-install/install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/install/any.pm | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index c9b5e54c7..b3abe8a5e 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- fix crash + Version 11.88 - 16 February 2009 - don't crash on invalid partition table diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 6ad227e20..23bd12df3 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -372,9 +372,9 @@ sub setPackages { sub remove_package_for_upgrade { my ($o) = @_; - my $extension; + my $extension = $o->{upgrade_by_removing_pkgs_matching}; - return if !$extension = $o->{upgrade_by_removing_pkgs_matching}; + return if !$extension; my $time = time(); my ($_w, $wait_message) = $o->wait_message_with_progress_bar; |