From 1881e679ee123529bc28dd23befe74e50051d1ed Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20Victor=20Duarte=20Martins?= Date: Tue, 18 May 2010 00:22:42 +0000 Subject: Fixing syntax for perl_checker. --- mdkonline.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'mdkonline.pm') diff --git a/mdkonline.pm b/mdkonline.pm index 6c0659f6..50f9457f 100644 --- a/mdkonline.pm +++ b/mdkonline.pm @@ -92,7 +92,7 @@ sub is_it_2008_0() { } sub is_extmaint_supported() { - $product_id->{support} eq 'extended' + $product_id->{support} eq 'extended'; } sub is_enterprise_media_supported() { @@ -179,7 +179,7 @@ sub translate_product { powerPack => N("Mandriva PowerPack"), server => N("Mandriva Enterprise Server"), ); - $product or $product = lc $product_id->{product}; + $product ||= lc $product_id->{product}; $strings{$product} || $product; } @@ -199,7 +199,7 @@ sub get_urpmi_options() { sub add_medium_enterprise { my ($email, $password, $version, $arch) = @_; - my $uri = sprintf("https://%s:%s\@download.mandriva.com/%s/rpms/%s/", + my $uri = sprintf("https://%s:%s@download.mandriva.com/%s/rpms/%s/", uri_escape($email), uri_escape($password), $version, @@ -210,7 +210,7 @@ sub add_medium_enterprise { sub add_medium_powerpack { my ($email, $password, $version, $arch) = @_; - my $uri = sprintf("https://%s:%s\@dl.mandriva.com/rpm/comm/%s/", + my $uri = sprintf("https://%s:%s@dl.mandriva.com/rpm/comm/%s/", uri_escape($email), uri_escape($password), $version); -- cgit v1.2.1