summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-08 16:15:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-08 16:15:23 +0000
commit99fefadac5995e9c23dc41102ebc4cb15c418ec1 (patch)
tree39e0949f6965fc64ea9e7c042274e5e0ad3f57db /perl-install
parent9319d874f72d29f254eee7965688bdcb7db41706 (diff)
downloaddrakx-backup-do-not-use-99fefadac5995e9c23dc41102ebc4cb15c418ec1.tar
drakx-backup-do-not-use-99fefadac5995e9c23dc41102ebc4cb15c418ec1.tar.gz
drakx-backup-do-not-use-99fefadac5995e9c23dc41102ebc4cb15c418ec1.tar.bz2
drakx-backup-do-not-use-99fefadac5995e9c23dc41102ebc4cb15c418ec1.tar.xz
drakx-backup-do-not-use-99fefadac5995e9c23dc41102ebc4cb15c418ec1.zip
cleanup
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);