diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-04-08 11:54:13 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-04-08 11:54:13 +0000 |
| commit | 29702612d5813da9a05a2fca1fef3ea66d94c6b2 (patch) | |
| tree | 452e55f9a583b44edaef36cac059fe10a08cb899 | |
| parent | f30d380a4c39b9e28edb832772afca4688dfb08d (diff) | |
| download | drakx-29702612d5813da9a05a2fca1fef3ea66d94c6b2.tar drakx-29702612d5813da9a05a2fca1fef3ea66d94c6b2.tar.gz drakx-29702612d5813da9a05a2fca1fef3ea66d94c6b2.tar.bz2 drakx-29702612d5813da9a05a2fca1fef3ea66d94c6b2.tar.xz drakx-29702612d5813da9a05a2fca1fef3ea66d94c6b2.zip | |
(adjust_paths_in_urpmi_cfg) prevent segfaulting in URPM::PACKAGE::DESTROY (#49673)
(as will happen after next patches)
| -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') { |