From b0d554c4155060ed665844fdf7b2a08db9bb3356 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 27 Nov 2002 20:50:12 +0000 Subject: perl_checker adaptations --- perl-install/scanner.pm | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) (limited to 'perl-install/scanner.pm') diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm index 3c9ff6ff2..8eef579ff 100755 --- a/perl-install/scanner.pm +++ b/perl-install/scanner.pm @@ -32,7 +32,7 @@ use log; my $_sanedir = "$prefix/etc/sane.d"; my $_scannerDBdir = "$prefix$ENV{SHARE_PATH}/ldetect-lst"; -$scannerDB = readScannerDB("$_scannerDBdir/ScannerDB"); +my $scannerDB = readScannerDB("$_scannerDBdir/ScannerDB"); sub confScanner { my ($model, $port) = @_; @@ -167,15 +167,12 @@ sub updateScannerDBfromSane { "UMAX" => "Umax", "Vobis/Highscreen" => "Vobis", }; - - opendir YREP, $_sanesrcdir or die "can't open $_sanesrcdir: $!"; - @files = grep /.*desc$/, readdir YREP; - closedir YREP; - foreach my $i (@files) { - my $F = common::openFileMaybeCompressed("$_sanesrcdir/$i"); - print Y "\n# from $i"; + + foreach my $f (glob_("$_sanesrcdir/*.desc")) { + my $F = common::openFileMaybeCompressed($f); + print Y "\n# from $f"; my ($lineno, $cmd, $val) = 0; - my ($name, $intf, $comment,$mfg); + my ($name, $intf, $comment, $mfg, $backend); my $fs = { backend => sub { $backend = $val }, mfg => sub { $mfg = $val; $name = undef },#bug when a new mfg comes. should called $fs->{ $name }(); but ?? -- cgit v1.2.1