From 1049bbf7ad28689cad9d572f28139d35fd4a28cf Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 18 Feb 2003 14:40:04 +0000
Subject: perl_checker fixes

---
 perl-install/scanner.pm          | 26 ++++++++++++++------------
 perl-install/standalone/logdrake |  6 +++---
 2 files changed, 17 insertions(+), 15 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 088db0cce..759d2e5f5 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -30,16 +30,16 @@ use detect_devices;
 use log;
 use handle_configs;
 
-my $_sanedir = "$::prefix/etc/sane.d";
-my $_scannerDBdir = "$::prefix$ENV{SHARE_PATH}/ldetect-lst";
-$scannerDB = readScannerDB("$_scannerDBdir/ScannerDB");
+my $sanedir = "$::prefix/etc/sane.d";
+my $scannerDBdir = "$::prefix$ENV{SHARE_PATH}/ldetect-lst";
+my $scannerDB = readScannerDB("$scannerDBdir/ScannerDB");
 
 sub confScanner {
     my ($model, $port, $vendor, $product) = @_;
     $port ||= detect_devices::dev_is_devfs() ? "$::prefix/dev/usb/scanner0" : "$::prefix/dev/scanner";
     my $a = $scannerDB->{$model}{server};
     #print "file:[$a]\t[$model]\t[$port]\n| ", (join "\n| ", @{$scannerDB->{$model}{lines}}),"\n";
-    my @driverconf = cat_("$_sanedir/$a.conf");
+    my @driverconf = cat_("$sanedir/$a.conf");
     my @configlines = @{$scannerDB->{$model}{lines}};
     foreach my $line (@configlines) {
 	$line =~ s/\$DEVICE/$port/g if $port;
@@ -60,20 +60,21 @@ sub confScanner {
 	    handle_configs::set_directive(\@driverconf, $line, 1);
 	}
     }
-    output("$_sanedir/$a.conf", @driverconf);
+    output("$sanedir/$a.conf", @driverconf);
     add2dll($a);
 }
 
 sub add2dll {
-    return if member($_[0], chomp_(cat_("$_sanedir/dll.conf")));
-    my @dllconf = cat_("$_sanedir/dll.conf");
+    return if member($_[0], chomp_(cat_("$sanedir/dll.conf")));
+    my @dllconf = cat_("$sanedir/dll.conf");
     handle_configs::add_directive(\@dllconf, $_[0]);
-    output("$_sanedir/dll.conf", @dllconf);
+    output("$sanedir/dll.conf", @dllconf);
 }
 
 sub configured {
     my @res;
     # Run "scanimage -L", to find the scanners which are already working
+    local *LIST;
     open LIST, "LC_ALL=C scanimage -L |";
     while (my $line = <LIST>) {
 	if ($line =~ /^\s*device\s*\`([^\`\']+)\'\s+is\s+a\s+(\S.*)$/) {
@@ -101,6 +102,7 @@ sub detect {
     my @res;
     # Run "sane-find-scanner", this also detects USB scanners which only
     # work with libusb.
+    local *DETECT;
     open DETECT, "LC_ALL=C sane-find-scanner -q |";
     while (my $line = <DETECT>) {
 	my ($vendorid, $productid, $make, $model, $description, $port);
@@ -121,7 +123,7 @@ sub detect {
 	    if ($vendorid and $productid) {
 		# We have vendor and product ID, look up the scanner in
 		# the usbtable
-		foreach my $entry (cat_("$_scannerDBdir/usbtable")) {
+		foreach my $entry (cat_("$scannerDBdir/usbtable")) {
 		    if ($entry =~ 
 			/^\s*$vendorid\s+$productid\s+.*\"([^\"]+)\"\s*$/) {
 			$description = $1;
@@ -291,7 +293,7 @@ sub updateScannerDBfromUsbtable {
 }
 
 sub updateScannerDBfromSane {
-    my ($_sanesrcdir) = @_;
+    my ($sanesrcdir) = @_;
     substInFile { s/END// } "ScannerDB";
 
     my $to_add = "# generated from Sane by scannerdrake\n";
@@ -319,7 +321,7 @@ sub updateScannerDBfromSane {
     # Read templates for configuration file lines
     my %configlines;
     my $backend;
-    foreach my $line (cat_("$_scannerDBdir/scannerconfigs")) {
+    foreach my $line (cat_("$scannerDBdir/scannerconfigs")) {
 	chomp $line;
 	if ($line =~ /^\s*SERVER\s+(\S+)\s*$/) {
 	    $backend = $1;
@@ -328,7 +330,7 @@ sub updateScannerDBfromSane {
 	}
     }
 
-    foreach my $f (glob_("$_sanesrcdir/doc/descriptions/*.desc"), glob_("$_sanesrcdir/doc/descriptions-external/*.desc")) {
+    foreach my $f (glob_("$sanesrcdir/doc/descriptions/*.desc"), glob_("$sanesrcdir/doc/descriptions-external/*.desc")) {
 	my $F = common::openFileMaybeCompressed($f);
 	$to_add .= "\n# from $f";
 	my ($lineno, $cmd, $val) = 0;
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 709eda546..448d4c978 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -166,7 +166,7 @@ gtkadd($my_win->{window},
 							      ),
 						    gtkpack_(new Gtk2::HBox(0,0),
 							     1, gtkadd(gtkset_border_width(new Gtk2::Frame(N("Choose file")),2),
-								       gtkpack (gtkset_border_width(Gtk2::VBox->new(0,0),0),
+								       gtkpack(gtkset_border_width(Gtk2::VBox->new(0,0),0),
 										map { $toggle{$_} = gtksignal_connect(new Gtk2::CheckButton($files{$_}{desc}), 
 														      clicked => sub {
 															  $refcount_search++; 
@@ -410,12 +410,12 @@ my $initdir = "/etc/init.d";
 		 };
     my @installed_d;
     foreach my $serv (keys %$service) {
-	-e "$initdir/$serv" && push (@installed_d, $serv);
+	-e "$initdir/$serv" && push @installed_d, $serv;
     }
   
     $in->ask_from(N("service setting"),
 		  N("You will receive an alert if one of the selected services is no longer running"),
-		  [ map { { label => $_, val => \${ $_ }, type => "bool", text => "$service->{ $_ }" } } @installed_d
+		  [ map { { label => $_, val => \${ $_ }, type => "bool", text => $service->{$_} } } @installed_d
 		  ]) or goto begin;
 
     $cron .= "#- check services\n";
-- 
cgit v1.2.1