summaryrefslogtreecommitdiffstats
path: root/perl-install/devices.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-12 19:54:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-12 19:54:20 +0000
commit24cb0062a2cc97a6acb0fff84696c10db502fb2d (patch)
tree808e653b6bf2dbfa2cbcbe745708d653c2a8a588 /perl-install/devices.pm
parentdb45b048efabc698b35fd703da71b5c12dd58235 (diff)
downloaddrakx-backup-do-not-use-24cb0062a2cc97a6acb0fff84696c10db502fb2d.tar
drakx-backup-do-not-use-24cb0062a2cc97a6acb0fff84696c10db502fb2d.tar.gz
drakx-backup-do-not-use-24cb0062a2cc97a6acb0fff84696c10db502fb2d.tar.bz2
drakx-backup-do-not-use-24cb0062a2cc97a6acb0fff84696c10db502fb2d.tar.xz
drakx-backup-do-not-use-24cb0062a2cc97a6acb0fff84696c10db502fb2d.zip
i prefer /(.*?)(\d+)$/ to /(.*\D)(\d+)$/
Diffstat (limited to 'perl-install/devices.pm')
-rw-r--r--perl-install/devices.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 8a3f5ac41..a955ee1bd 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -111,7 +111,7 @@ sub entry {
$type = c::S_IFBLK();
$major = 114;
$minor = 16 * $1 + ($2 || 0);
- } elsif (/(.*\D)(\d+)$/) {
+ } elsif (/(.*?)(\d+)$/) {
($type, $major, $minor) =
@{ ${{"fd" => [ c::S_IFBLK(), 2, 0 ],
"hidbp-mse-" => [ c::S_IFCHR(), 10, 32 ],