From 88e8c8e592901261de1249486d0f8427435b0d20 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 1 Aug 2002 16:31:14 +0000
Subject: perl_checker fixes

---
 perl-install/harddrake/ui.pm | Bin 10341 -> 10332 bytes
 perl-install/scanner.pm      |   5 ++++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index a5088cc28..4c1da02c1 100644
Binary files a/perl-install/harddrake/ui.pm and b/perl-install/harddrake/ui.pm 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
 #
-- 
cgit v1.2.1