Replaced "my" by "our" for the declaration of the "ScannerDB" variable, so that /usr/bin/scannerdrake has access to it.

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 759d2e5f5..a2e68a6a5 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -32,7 +32,7 @@ use handle_configs;
 
 my $sanedir = "$::prefix/etc/sane.d";
 my $scannerDBdir = "$::prefix$ENV{SHARE_PATH}/ldetect-lst";
-my $scannerDB = readScannerDB("$scannerDBdir/ScannerDB");
+our $scannerDB = readScannerDB("$scannerDBdir/ScannerDB");
 
 sub confScanner {
     my ($model, $port, $vendor, $product) = @_;