summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/harddrake/ui.pmbin10341 -> 10332 bytes
-rwxr-xr-xperl-install/scanner.pm5
2 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index a5088cc28..4c1da02c1 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
Binary files differ
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
#