From 10a0808768b9fea056a00042957039e941837a83 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 20 Aug 2004 02:04:16 +0000
Subject: fix nasty typo

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 1cbf89674..46c8739a0 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -639,7 +639,7 @@ sub firewire_probe() {
 	}
     }
     foreach (@l) {
-	if ($e->{specifier_id} == 0x00609e && $e->{specifier_version} == 0x010483) {
+	if ($_->{specifier_id} == 0x00609e && $_->{specifier_version} == 0x010483) {
 	    add2hash($_, { driver => 'sbp2', description => "Generic Firewire Storage Controller" });
 	}
     }
-- 
cgit v1.2.1