summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-04 15:11:06 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-04 15:11:06 +0000
commitda8526b2e44ec486a2a578e56961ecdd9af9b8df (patch)
tree6a7dbdbcc32c70762b9b6ca530f7e7c9ed170cc4
parent474da8b0f390c1f0b98d31b06a2b39f788d8dc52 (diff)
downloaddrakx-da8526b2e44ec486a2a578e56961ecdd9af9b8df.tar
drakx-da8526b2e44ec486a2a578e56961ecdd9af9b8df.tar.gz
drakx-da8526b2e44ec486a2a578e56961ecdd9af9b8df.tar.bz2
drakx-da8526b2e44ec486a2a578e56961ecdd9af9b8df.tar.xz
drakx-da8526b2e44ec486a2a578e56961ecdd9af9b8df.zip
Remove a debug trace, and perl_checker fixes
-rw-r--r--perl-install/install_any.pm5
1 files changed, 2 insertions, 3 deletions
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;