diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-06 09:55:36 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-02-06 09:55:36 +0000 |
| commit | 8563788a3f0893b0446bda6a0ac0af8c89f2ef58 (patch) | |
| tree | ddb76b8a1cf95079e479b67b67d6c3f9689ed7f7 /perl-install/scanner.pm | |
| parent | 73270c956d3cc2f51a0dc04454b0c3b3e050e69a (diff) | |
| download | drakx-backup-do-not-use-8563788a3f0893b0446bda6a0ac0af8c89f2ef58.tar drakx-backup-do-not-use-8563788a3f0893b0446bda6a0ac0af8c89f2ef58.tar.gz drakx-backup-do-not-use-8563788a3f0893b0446bda6a0ac0af8c89f2ef58.tar.bz2 drakx-backup-do-not-use-8563788a3f0893b0446bda6a0ac0af8c89f2ef58.tar.xz drakx-backup-do-not-use-8563788a3f0893b0446bda6a0ac0af8c89f2ef58.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install/scanner.pm')
| -rwxr-xr-x | perl-install/scanner.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm index e5d8bb48d..3fe56b01f 100755 --- a/perl-install/scanner.pm +++ b/perl-install/scanner.pm @@ -32,7 +32,7 @@ use handle_configs; my $_sanedir = "$::prefix/etc/sane.d"; my $_scannerDBdir = "$::prefix$ENV{SHARE_PATH}/ldetect-lst"; -$scannerDB = readScannerDB("$_scannerDBdir/ScannerDB"); +my $scannerDB = readScannerDB("$_scannerDBdir/ScannerDB"); sub confScanner { my ($model, $port) = @_; @@ -41,8 +41,8 @@ sub confScanner { #print "file:[$a]\t[$model]\t[$port]\n| ", (join "\n| ", @{$scannerDB->{$model}{lines}}),"\n"; my @driverconf = cat_("$_sanedir/$a.conf"); my @configlines = @{$scannerDB->{$model}{lines}}; - (s/\$DEVICE/$port/) foreach @configlines; - (handle_configs::set_directive(\@driverconf, $_)) foreach @configlines; + s/\$DEVICE/$port/ foreach @configlines; + handle_configs::set_directive(\@driverconf, $_) foreach @configlines; output("$_sanedir/$a.conf", @driverconf); add2dll($a); } @@ -58,7 +58,7 @@ sub detect { my ($i, @res) = 0; foreach (grep { $_->{driver} =~ /scanner/ } detect_devices::usb_probe()) { use Data::Dumper; - print Dumper ($_); + print Dumper($_); #my ($manufacturer, $model) = split '\|', $_->{description}; #$_->{description} =~ s/Hewlett[-\s_]Packard/HP/; $_->{description} =~ s/Seiko\s+Epson/Epson/i; |