From add6d3c510e4efb7b1f41615ccb6a19a3c3b5c3e Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 4 Apr 2005 17:39:10 +0000 Subject: Try to guess the device associated with the CD-ROM when installing urpmi (bug 14395) --- perl-install/install_any.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index b762b8f4f..5bf917ded 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1003,6 +1003,8 @@ sub install_urpmi { $removable_device = ($p->{mntpoint} || "/mnt/hd") . "/$iso_path"; } elsif ($curmethod eq 'cdrom') { $removable_device = '/dev/cdrom'; + my $p; $p = fs::get::mntpoint2part("/tmp/image", $::o->{fstab}) + and $removable_device = $p->{device}; } #- build a list file if needed. -- cgit v1.2.1