From dba8fab056173ce124e1c151fb46277af8d35282 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 8 Jul 2005 08:38:51 +0000 Subject: reduce the overall perl_checker warnings --- perl-install/scanner.pm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'perl-install/scanner.pm') diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm index b85d6e440..fafd36d60 100755 --- a/perl-install/scanner.pm +++ b/perl-install/scanner.pm @@ -152,11 +152,11 @@ sub configured() { port => $port, val => { DESCRIPTION => $description, - ($backend ? ( BACKEND => $backend ) : ()), + ($backend ? (BACKEND => $backend) : ()), ($firmwareline ? - ( FIRMWARELINE => $firmwareline ) : ()), + (FIRMWARELINE => $firmwareline) : ()), } - } + }; } } close LIST; @@ -207,8 +207,8 @@ sub nonroot_access_for_parport { # Modify /etc/xinetd.d/saned to let saned run as root my @sanedxinetdconf = cat_("/etc/xinetd.d/saned"); - ( s/(user\s*=\s*).*$/$1root/ ) foreach @sanedxinetdconf; - ( s/(group\s*=\s*).*$/$1root/ ) foreach @sanedxinetdconf; + s/(user\s*=\s*).*$/$1root/ foreach @sanedxinetdconf; + s/(group\s*=\s*).*$/$1root/ foreach @sanedxinetdconf; output("/etc/xinetd.d/saned", @sanedxinetdconf); # Read list of hosts to where to export the local scanners @@ -241,8 +241,8 @@ sub nonroot_access_for_parport { if (-r "/etc/xinetd.d/saned") { # Modify /etc/xinetd.d/saned to let saned run as saned my @sanedxinetdconf = cat_("/etc/xinetd.d/saned"); - ( s/(user\s*=\s*).*$/$1saned/ ) foreach @sanedxinetdconf; - ( s/(group\s*=\s*).*$/$1saned/ ) foreach @sanedxinetdconf; + s/(user\s*=\s*).*$/$1saned/ foreach @sanedxinetdconf; + s/(group\s*=\s*).*$/$1saned/ foreach @sanedxinetdconf; output("/etc/xinetd.d/saned", @sanedxinetdconf); # Restart xinetd services::restart("xinetd") if $sanedrunning; @@ -284,7 +284,7 @@ sub detect { my ($device) = grep { sprintf("%04x", $_->{vendor}) eq $vendor && sprintf("%04x", $_->{id}) eq $id } @devices; if ($device) { - $driver = $device->{driver} + $driver = $device->{driver}; } else { warn "i failled to lookupp $vendorid && $productid"; } -- cgit v1.2.1