summaryrefslogtreecommitdiffstats
path: root/perl-install/printer/detect.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-28 13:26:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-28 13:26:25 +0000
commitec747dc1097a5f80d220311dc89e9d6ec32cab31 (patch)
tree88da1b167952608d6ae5d7579927a85baf4767ce /perl-install/printer/detect.pm
parent6bd6d9750078047ed4df33564ace48d1cb3c32a9 (diff)
downloaddrakx-backup-do-not-use-ec747dc1097a5f80d220311dc89e9d6ec32cab31.tar
drakx-backup-do-not-use-ec747dc1097a5f80d220311dc89e9d6ec32cab31.tar.gz
drakx-backup-do-not-use-ec747dc1097a5f80d220311dc89e9d6ec32cab31.tar.bz2
drakx-backup-do-not-use-ec747dc1097a5f80d220311dc89e9d6ec32cab31.tar.xz
drakx-backup-do-not-use-ec747dc1097a5f80d220311dc89e9d6ec32cab31.zip
perl_checker adaptations
Diffstat (limited to 'perl-install/printer/detect.pm')
-rw-r--r--perl-install/printer/detect.pm6
1 files changed, 3 insertions, 3 deletions
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;