diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-01 16:31:14 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-01 16:31:14 +0000 |
| commit | 88e8c8e592901261de1249486d0f8427435b0d20 (patch) | |
| tree | b2c790f2640ec558e09c3c4523d99f4468d3ce6b /perl-install/scanner.pm | |
| parent | 0da4d0ead2ea20be34ec9c5763dd8ae0309caec8 (diff) | |
| download | drakx-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-x | perl-install/scanner.pm | 5 |
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 # |