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/any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/install/any.pm')

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