From 29702612d5813da9a05a2fca1fef3ea66d94c6b2 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 8 Apr 2009 11:54:13 +0000
Subject: (adjust_paths_in_urpmi_cfg) prevent segfaulting in
 URPM::PACKAGE::DESTROY (#49673) (as will happen after next patches)

---
 perl-install/install/media.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/install')

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') {
-- 
cgit v1.2.1