summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-17 12:36:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-17 12:36:34 +0000
commit8a162249295121d1c0cd7b6a3f9afdd66d1428f2 (patch)
tree02a9466d8c9134c63ffc428429d3c4b92b5c2617 /perl-install
parentbcfa00456ce6682c6810a39b8badf7e6101bdf1a (diff)
downloaddrakx-8a162249295121d1c0cd7b6a3f9afdd66d1428f2.tar
drakx-8a162249295121d1c0cd7b6a3f9afdd66d1428f2.tar.gz
drakx-8a162249295121d1c0cd7b6a3f9afdd66d1428f2.tar.bz2
drakx-8a162249295121d1c0cd7b6a3f9afdd66d1428f2.tar.xz
drakx-8a162249295121d1c0cd7b6a3f9afdd66d1428f2.zip
fix
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbug_report1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/standalone/drakbug_report b/perl-install/standalone/drakbug_report
index 4911fcb41..e031a008f 100755
--- a/perl-install/standalone/drakbug_report
+++ b/perl-install/standalone/drakbug_report
@@ -2,6 +2,7 @@
use lib qw(/usr/lib/libDrakX);
+use MDK::Common;
use any;
my %other = (
x'> my ($i, $elem, @res) = (0, {});
foreach (grep { $_->{driver} =~ /scanner/ } detect_devices::usb_probe()) {
#my ($manufacturer, $model) = split '\|', $_->{description};
@@ -65,14 +65,16 @@ sub findScannerUsbport {
}};
++$i;
}
+ foreach ({$_->{media_type} =~ /scanner/ } detect_devices::getSCSI()) {
+ push @res, { port => "/dev/usb/scanner$i",
+ val => { DESCRIPTION => $_->{info} },
+ };
+ ++$i;
+ }
@res;
}
-sub findScannerScsi {
-
-}
-
sub readScannerDB {
my ($file) = @_;
my ($card, %cards);