From 7ff5a24ad1b4f7e2ac2e9df17e3a977ace74aa1b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 16 Sep 2005 19:24:13 +0000
Subject: (complete_usb_storage_info) delete {found} field once used

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index a2f07aa14..464b82e90 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -145,6 +145,7 @@ sub complete_usb_storage_info {
 	    $e->{"usb_$_"} = $usb->{$_} foreach keys %$usb;
 	}
     }
+    delete $_->{found} foreach @usb;
 }
 
 sub get_devfs_devices {
-- 
cgit v1.2.1