summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-04-08 11:54:13 +0000
committerThierry Vignaud <tv@mandriva.org>2009-04-08 11:54:13 +0000
commit29702612d5813da9a05a2fca1fef3ea66d94c6b2 (patch)
tree452e55f9a583b44edaef36cac059fe10a08cb899 /perl-install/install
parentf30d380a4c39b9e28edb832772afca4688dfb08d (diff)
downloaddrakx-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)
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/media.pm4
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') {