summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
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/detect_devices.pm
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/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm2
1 files changed, 1 insertions, 1 deletions
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);