From ccd328a91005d8942f6afb74880e018636ba573c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 13 Feb 2002 11:37:17 +0000
Subject: - handle WORM type in /proc/scsi/scsi - added media_type cdrom-burner
 - adapting to new media_type - nicer fd&hd testing

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

(limited to 'perl-install/fs.pm')

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 5156a9c4c..e75970330 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -331,11 +331,11 @@ sub set_default_options {
 
     if ($options->{supermount} && $is_auto) {
 	# this can't work, guessing :-(
-	$part->{type} = fs2type($part->{media_type} eq 'cdrom' ? 'iso9660' : 'vfat');
+	$part->{type} = fs2type($part->{media_type} =~ /cdrom/ ? 'iso9660' : 'vfat');
 	$is_auto = 0;
     }
 
-    if ($part->{media_type} eq 'cdrom') {
+    if ($part->{media_type} =~ /cdrom/) {
 	$options->{ro} = 1;
     }
 
-- 
cgit v1.2.1