From 782cf2217a9d00abb06c351db439dc8dd6ca870e Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Tue, 18 Mar 2008 15:06:11 +0000
Subject: slight optimization

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

(limited to 'perl-install')

diff --git a/perl-install/modalias.pm b/perl-install/modalias.pm
index 516a2dd01..86d2f0603 100644
--- a/perl-install/modalias.pm
+++ b/perl-install/modalias.pm
@@ -43,8 +43,8 @@ sub parse_path {
     } elsif (-f $path) {
         foreach (cat_($path)) {
             if (my ($alias, $class, $module) = $_ =~ $alias_re) {
-                my ($vendor, $device) = alias_to_ids($alias);
                 if (member($class, @classes)) {
+                    my ($vendor, $device) = alias_to_ids($alias);
                     if ($vendor) {
                         $group->{$class} ||= {};
                         $group->{$class}{$vendor} ||= {};
-- 
cgit v1.2.1