From 34de898cec65e0744b462c9be568a77df52ef7fe Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 9 Apr 2009 10:11:28 +0000
Subject: perl_checker cleanups

---
 perl-install/install/http.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/install/http.pm b/perl-install/install/http.pm
index 72ff053fb..bca1f7362 100644
--- a/perl-install/install/http.pm
+++ b/perl-install/install/http.pm
@@ -39,7 +39,7 @@ sub get_file_and_size {
     my $urpm = $::o->{packages};
     if (!$urpm) {
         require install::pkgs;
-        $urpm = install::pkgs::empty_packages($o->{keep_unrequested_dependencies});
+        $urpm = install::pkgs::empty_packages($::o->{keep_unrequested_dependencies});
     }
 
     my $cachedir = $urpm->{cachedir} || '/root';
@@ -57,7 +57,7 @@ sub get_file_and_size {
     my $res = urpm::download::sync_url($urpm, $url, dir => $cachedir);
     $res or die N("retrieval of [%s] failed", $file) . "\n";
     open(my $f, $file);
-    ( -s $file, $f);
+    (-s $file, $f);
 }
 
 1;
-- 
cgit v1.2.1