summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-06 09:55:36 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-06 09:55:36 +0000
commit8563788a3f0893b0446bda6a0ac0af8c89f2ef58 (patch)
treeddb76b8a1cf95079e479b67b67d6c3f9689ed7f7 /perl-install
parent73270c956d3cc2f51a0dc04454b0c3b3e050e69a (diff)
downloaddrakx-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')
-rwxr-xr-xperl-install/scanner.pm8
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;