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;