From 24cb0062a2cc97a6acb0fff84696c10db502fb2d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 12 Feb 2002 19:54:20 +0000
Subject: i prefer /(.*?)(\d+)$/ to /(.*\D)(\d+)$/

---
 perl-install/devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ],
-- 
cgit v1.2.1