From 2cef6170468f57f32216e8d05ce71f536e4b51cb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 5 Dec 2012 14:23:45 +0000
Subject: (setPackages) perl_checker fix

---
 perl-install/install/any.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index f89a05477..9333c708c 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -321,6 +321,7 @@ sub setPackages {
 	$o->{packages} = install::pkgs::empty_packages($o->{keep_unrequested_dependencies});
 	
 	my $media = $o->{media} || [ { type => 'media_cfg', url => 'drakx://media' } ];
+	my ($suppl_method, $copy_rpms_on_disk);
 
 	{
 	    my @errors;
@@ -328,7 +329,7 @@ sub setPackages {
 		log::l("urpmi error: $_[0]");
 		push @errors, @_;
 	    };
-	    my ($suppl_method, $copy_rpms_on_disk) = install::media::get_media($o, $media, $o->{packages});
+	    ($suppl_method, $copy_rpms_on_disk) = install::media::get_media($o, $media, $o->{packages});
 
 	    if ($suppl_method) {
 	        1 while $o->selectSupplMedia;
-- 
cgit v1.2.1