diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/harddrake/ui.pm | bin | 10341 -> 10332 bytes | |||
| -rwxr-xr-x | perl-install/scanner.pm | 5 |
2 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm Binary files differindex a5088cc28..4c1da02c1 100644 --- a/perl-install/harddrake/ui.pm +++ b/perl-install/harddrake/ui.pm 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 # |