diff options
| -rw-r--r-- | perl-install/install_any.pm | 5 |
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; |