From ec747dc1097a5f80d220311dc89e9d6ec32cab31 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 28 Nov 2002 13:26:25 +0000
Subject: perl_checker adaptations

---
 perl-install/printer/detect.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/printer/detect.pm')

diff --git a/perl-install/printer/detect.pm b/perl-install/printer/detect.pm
index 2c5b42e2e..bd73c51b8 100644
--- a/perl-install/printer/detect.pm
+++ b/perl-install/printer/detect.pm
@@ -32,7 +32,7 @@ sub whatNetPrinter {
     push @portstoscan, "4010", "4020", "4030", "5503", "9100-9104" if $network;
     
     return () if $#portstoscan < 0;
-    my $portlist = join (",", @portstoscan);
+    my $portlist = join ",", @portstoscan;
     
     # Which hosts should be scanned?
     # (Applying nmap to a whole network is very time-consuming, because nmap
@@ -41,7 +41,7 @@ sub whatNetPrinter {
     #  hosts and then scanning only them, which is much faster)
     my @hostips = getIPsInLocalNetworks();
     return () if $#hostips < 0;
-    my $hostlist = join (" ", @hostips);
+    my $hostlist = join " ", @hostips;
 
     # Scan network for printers, the timeout settings are there to avoid
     # delays caused by machines blocking their ports with a firewall
@@ -190,7 +190,7 @@ sub getSMBPrinterShares {
 	    my $name = $1;
 	    my $description = $2;
 	    $description =~ s/^(\s*)//;
-	    push (@shares, { name => $name, description => $description });
+	    push @shares, { name => $name, description => $description };
 	}
     }
     close F;
-- 
cgit v1.2.1