diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-04 15:11:06 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-04 15:11:06 +0000 |
| commit | da8526b2e44ec486a2a578e56961ecdd9af9b8df (patch) | |
| tree | 6a7dbdbcc32c70762b9b6ca530f7e7c9ed170cc4 /perl-install | |
| parent | 474da8b0f390c1f0b98d31b06a2b39f788d8dc52 (diff) | |
| download | drakx-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
Diffstat (limited to 'perl-install')
| -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; |