summaryrefslogtreecommitdiffstats
path: root/perl-install/scanner.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-01 16:31:14 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-01 16:31:14 +0000
commit88e8c8e592901261de1249486d0f8427435b0d20 (patch)
treeb2c790f2640ec558e09c3c4523d99f4468d3ce6b /perl-install/scanner.pm
parent0da4d0ead2ea20be34ec9c5763dd8ae0309caec8 (diff)
downloaddrakx-88e8c8e592901261de1249486d0f8427435b0d20.tar
drakx-88e8c8e592901261de1249486d0f8427435b0d20.tar.gz
drakx-88e8c8e592901261de1249486d0f8427435b0d20.tar.bz2
drakx-88e8c8e592901261de1249486d0f8427435b0d20.tar.xz
drakx-88e8c8e592901261de1249486d0f8427435b0d20.zip
perl_checker fixes
Diffstat (limited to 'perl-install/scanner.pm')
-rwxr-xr-xperl-install/scanner.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index fddedca9d..d78eaf2fe 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -174,7 +174,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 {
@@ -208,6 +208,9 @@ sub updateScannerDBfromSane {
#-----------------------------------------------
# $Log$
+# Revision 1.9 2002/08/01 16:31:14 tvignaud
+# perl_checker fixes
+#
# Revision 1.8 2002/08/01 16:20:15 tvignaud
# perl_checker fixes
#