From da8526b2e44ec486a2a578e56961ecdd9af9b8df Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 4 Feb 2005 15:11:06 +0000 Subject: Remove a debug trace, and perl_checker fixes --- perl-install/install_any.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index d400c2523..d11cbb8a1 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -611,8 +611,7 @@ sub setPackages { sub copy_rpms_on_disk { my ($o) = @_; - use Data::Dumper;log::l("dumper mediums:".Dumper$o->{packages}{mediums}); - mkdir "$o->{prefix}/$_", 0755 for qw(var var/ftp var/ftp/pub var/ftp/pub/Mandrakelinux var/ftp/pub/Mandrakelinux/media); + mkdir "$o->{prefix}/$_", 0755 foreach qw(var var/ftp var/ftp/pub var/ftp/pub/Mandrakelinux var/ftp/pub/Mandrakelinux/media); local *changeMedium = sub { my ($method, $medium) = @_; my $name = pkgs::mediumDescr($o->{packages}, $medium); @@ -630,7 +629,7 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.", return 1; } }; - for my $k (pkgs::allMediums($o->{packages})) { + foreach my $k (pkgs::allMediums($o->{packages})) { my $m = $o->{packages}{mediums}{$k}; askChangeMedium($o->{method}, $m->{descr}) or next; -- cgit v1.2.1