From f5a68b4b22844f2e40b9a22994dcf183265d23b7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 16 Feb 2009 17:55:26 +0000
Subject: (remove_package_for_upgrade) fix crash

---
 perl-install/install/NEWS   | 2 ++
 perl-install/install/any.pm | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1