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/bootloader.pm     | 2 +-
 perl-install/detect_devices.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 9b5b9bc76..c7b01259e 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -440,7 +440,7 @@ sub get_of_dev($$) {
 	open(FILE, "$prefix/tmp/ofpath") || die "Can't open $prefix/tmp/ofpath";
 	my $of_dev = "";
 	local $_ = "";
-	while(<FILE>){
+	while (<FILE>){
 		$of_dev = $_;
 	}
 	chop($of_dev);
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