From 7f26f4486207e8775f6e1d5df5658687737368fb Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 25 May 2005 10:21:09 +0000
Subject: Mark an argument as optional

---
 perl-install/pkgs.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index d793ae87d..f8e9c8583 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -1481,11 +1481,11 @@ sub new { my ($class, %h) = @_; bless \%h, $class }
 
 #- retrieve medium by id (usually a number) or an empty placeholder
 sub by_id {
-    my ($medium_id, $packages) = @_;
-    $packages = $::o->{packages} unless defined $packages;
-    log::l("select $medium_id among ".join(",",keys%{$packages->{mediums}}));
-    defined $packages->{mediums}{$medium_id}
-	? $packages->{mediums}{$medium_id}
+    my ($medium_id, $o_packages) = @_;
+    $o_packages = $::o->{packages} unless defined $o_packages;
+    log::l("select $medium_id among ".join(",",keys%{$o_packages->{mediums}}));
+    defined $o_packages->{mediums}{$medium_id}
+	? $o_packages->{mediums}{$medium_id}
 	: bless { invalid => 1 };
 }
 
-- 
cgit v1.2.1