From 19ec952683258785a4eb44cf24f4951d2e2d1e5e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 16 Sep 2005 19:27:26 +0000
Subject: (complete_usb_storage_info) using a local value is just saner

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

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 464b82e90..da30a9533 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -141,11 +141,10 @@ sub complete_usb_storage_info {
 
     foreach my $usb (usb_probe()) {
 	if (my $e = find { !$_->{found} && $_->{usb_vendor} == $usb->{vendor} && $_->{usb_id} == $usb->{id} } @usb) {
-		$e->{found} = 1;
+         local $e->{found} = 1;
 	    $e->{"usb_$_"} = $usb->{$_} foreach keys %$usb;
 	}
     }
-    delete $_->{found} foreach @usb;
 }
 
 sub get_devfs_devices {
-- 
cgit v1.2.1