From f44b570c09c9e6652a332bba2c04770c47924a0a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jo=C3=A3o=20Victor=20Duarte=20Martins?=
 <jvictor@mandriva.com>
Date: Tue, 1 Jun 2010 17:49:00 +0000
Subject: Syntax cleanup (perl_checker recommendations).

---
 mdkapplet-add-media-helper | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'mdkapplet-add-media-helper')

diff --git a/mdkapplet-add-media-helper b/mdkapplet-add-media-helper
index 48693723..ee346a67 100755
--- a/mdkapplet-add-media-helper
+++ b/mdkapplet-add-media-helper
@@ -103,7 +103,7 @@ my $title = N("Adding an additional package medium");
     $product_id or mdkonline::get_product_id();
 
     # Product id data should be used in lowercase.
-    $up_product = lc $product_id->{product} unless $up_product;
+    $up_product ||= lc $product_id->{product};
 
     # Sanitizes product command line argument.
     unless (exists $product{$up_product}) {
@@ -141,7 +141,7 @@ sub authenticate_callback {
             $title, 
             N("Your Mandriva account does not have %s download subscription enabled.", 
               mdkonline::translate_product($up_product)),
-            $product{$up_product}->{info_url}
+            $product{$up_product}{info_url}
             );
     } 
     else {
@@ -153,10 +153,10 @@ sub add_medium_for_product {
     my ($product, $email, $passwd) = @_;
 
     my $error = 0;
-    my $arch = urpm::cfg::get_arch();
-    my @archs = ($arch, if_($arch eq 'x86_64', 'i586'));
+    my $current_arch = urpm::cfg::get_arch();
+    my @archs = ($current_arch, if_($current_arch eq 'x86_64', 'i586'));
 
-    for $arch (@archs) {
+    foreach my $arch (@archs) {
 	unless ($product->{add_medium}->($email, $passwd, $up_version, $arch)) {
 	    $error = 1;
 	    interactive->vnew->ask_warn(
-- 
cgit v1.2.1