summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm2
-rwxr-xr-xperl-install/scanner.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index e3b053fa0..6f5086a0e 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -195,7 +195,7 @@ sub getSCSI() {
each_index {
put_in_hash $_, { media_type => 'scanner' };
- } grep { $_->{raw_type} =~ /Scanner/ } @l;
+ } grep { $_->{raw_type} =~ /Scanner/ || $_->{raw_type} =~ /Processor /} @l;
get_devfs_devices(@l);
get_sys_cdrom_info(@l);
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 502237c19..fccca25e8 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -66,7 +66,7 @@ sub detect {
++$i;
}
foreach (grep { $_->{media_type} =~ /scanner/ } detect_devices::getSCSI()) {
- push @res, { port => "/dev/usb/scanner$i",
+ push @res, { port => "/dev/sg",
val => { DESCRIPTION => $_->{info} },
};
++$i;