From b1195bf4d4368378aa0b42ceabd16528f64e15e4 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Tue, 15 Mar 2005 17:34:42 +0000
Subject: Fix cdrom device name

---
 perl-install/install_any.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index b045cda5c..cb5562244 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -440,6 +440,7 @@ sub selectSupplMedia {
 	    (my $cdromdev) = detect_devices::cdroms();
 	    $o->ask_warn('', N("No device found")), return 'error' if !$cdromdev;
 	    $cdrom = $cdromdev->{device};
+	    $cdrom =~ m,^/, or $cdrom = "/dev/$cdrom";
 	    devices::make($cdrom);
 	    ejectCdrom($cdrom);
 	    if ($o->ask_okcancel('', N("Insert the CD"), 1)) {
-- 
cgit v1.2.1