From 99fefadac5995e9c23dc41102ebc4cb15c418ec1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Mar 2001 16:15:23 +0000
Subject: cleanup

---
 perl-install/detect_devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index f5e6270c4..a38917d5b 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -65,7 +65,7 @@ sub floppy { first(floppies()) }
 
 sub isBurner { 
     my ($dev) = @_;
-    if (my ($nb) = $dev =~ /scd(.*)/) {	
+    if (my ($nb) = $dev =~ /scd (.*)/x) {	
 	grep { /^(scd|sr)$nb:.*writer/ } syslog();
     } else {
 	my $f = tryOpen($dev); 
-- 
cgit v1.2.1