From 8eae888404e965cd4e67f503884ad84c01ccf670 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 22 Jan 2004 15:27:24 +0000 Subject: do not mix before and after firmware upload usb ids --- perl-install/detect_devices.pm | 38 +++++++++++++++++++++++++------------- 1 file changed, 25 insertions(+), 13 deletions(-) (limited to 'perl-install/detect_devices.pm') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 811597dd4..18a58c054 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -428,21 +428,33 @@ sub getSagem() { } # generate from the following from eci driver sources: -# perl -e 'while (<>) { print qq("$1$2$3$4",\n) if /\b([a-z\d]*)\s*([a-z\d]*)\s*([a-z\d]*)\s*([a-z\d]*)$/ }' ) { print qq("$1$2",\n"$3$4",\n) if /\b([a-z\d]*)\s*([a-z\d]*)\s*([a-z\d]*)\s*([a-z\d]*)$/ }' {vendor}, $_->{id}, $_->{subvendor}, $_->{subid}), @ids) } usb_probe(); } -- cgit v1.2.1