diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/media.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm index 7818c48e3..54ae9001b 100644 --- a/perl-install/install/media.pm +++ b/perl-install/install/media.pm @@ -520,10 +520,10 @@ sub get_media { } sub adjust_paths_in_urpmi_cfg { - my ($packages) = @_; + my ($urpm) = @_; require Clone; - my ($urpm) = Clone::clone($packages); + local $urpm->{media} = Clone::clone($urpm->{media}); foreach my $medium (@{$urpm->{media}}) { my $phys_m = $medium->{phys_medium}; if ($phys_m->{method} eq 'cdrom') { |