summaryrefslogtreecommitdiffstats
path: root/perl-install/scanner.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-13 14:25:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-13 14:25:59 +0000
commitb7661719bc1f1ebd078c7e7adb2eb25c83526c27 (patch)
tree9cedb533d18ccd4640a30488b731f83c3c438d58 /perl-install/scanner.pm
parentf47690a41184c9f99a6fbf003b1045c3f4c0220b (diff)
downloaddrakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar
drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.gz
drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.bz2
drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.xz
drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.zip
add/remove spaces to make perl_checker happy
Diffstat (limited to 'perl-install/scanner.pm')
-rwxr-xr-xperl-install/scanner.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 6e8ecfa7d..565a7d460 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -182,7 +182,7 @@ sub updateScannerDBfromSane {
model => sub {
unless ($name) { $name = $val; next }
$name = (member($mfg, keys %$sane2DB)) ?
- (ref $sane2DB->{ $mfg}) ? $sane2DB->{ $mfg}($name) : "$sane2DB->{ $mfg }|$name" : "$mfg|$name";
+ (ref $sane2DB->{$mfg}) ? $sane2DB->{$mfg}($name) : "$sane2DB->{ $mfg }|$name" : "$mfg|$name";
if (member($name, keys %$scanner::scannerDB)) {
print "#[$name] already in ScannerDB!\n";
} else {
@@ -200,7 +200,7 @@ sub updateScannerDBfromSane {
s/\s+$//;
/^\;/ and next;
($cmd, $val) = /:(\S+)\s*\"([^\;]*)\"/ or next; #log::l("bad line $lineno ($_)"), next;
- my $f = $fs->{ $cmd};
+ my $f = $fs->{$cmd};
$f ? $f->() : log::l("unknown line $lineno ($_)");
}
$fs->{model}(); # the last one