From d22779aee15234c1273285bc35dfb0ce7a2b373c Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Sat, 22 Sep 2007 10:02:55 +0000
Subject: move regexp in a variable

---
 perl-install/modalias.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/modalias.pm')

diff --git a/perl-install/modalias.pm b/perl-install/modalias.pm
index 79add1adf..6ae09b9cc 100644
--- a/perl-install/modalias.pm
+++ b/perl-install/modalias.pm
@@ -23,6 +23,8 @@ my @config_groups = (
 my @classes = qw(ide ieee1394 input pci pcmcia pnp serio usb);
 my @alias_groups;
 
+my $alias_re = qr/^\s*alias\s+(([^:]+):\S+)\s+(\S+)$/;
+
 sub alias_to_ids {
     my ($alias) = @_;
     my ($vendor, $device);
@@ -40,7 +42,7 @@ sub parse_path {
         parse_path($group, "$path/$_") foreach all($path);
     } elsif (-f $path) {
         foreach (cat_($path)) {
-            if (my ($alias, $class, $module) = /^\s*alias\s+(([^:]+):\S+)\s+(\S+)$/) {
+            if (my ($alias, $class, $module) = $_ =~ $alias_re) {
                 my ($vendor, $device) = alias_to_ids($alias);
                 if (member($class, @classes)) {
                     if ($vendor) {
-- 
cgit v1.2.1