summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm2
-rw-r--r--perl-install/detect_devices.pm2
2 files changed, 2 insertions, 2 deletions
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);