summaryrefslogtreecommitdiffstats
path: root/perl-install/modules
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-23 19:50:48 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-23 19:50:48 +0000
commit9186647ea5fd7505f6920c2debfd4f9e2000458f (patch)
tree7b738a881f825c65fdbae43f45b8a9154181b73e /perl-install/modules
parent0e8899e3f41e01d15f03727131dc71f9034eca12 (diff)
downloaddrakx-9186647ea5fd7505f6920c2debfd4f9e2000458f.tar
drakx-9186647ea5fd7505f6920c2debfd4f9e2000458f.tar.gz
drakx-9186647ea5fd7505f6920c2debfd4f9e2000458f.tar.bz2
drakx-9186647ea5fd7505f6920c2debfd4f9e2000458f.tar.xz
drakx-9186647ea5fd7505f6920c2debfd4f9e2000458f.zip
help perl_checker
Diffstat (limited to 'perl-install/modules')
-rw-r--r--perl-install/modules/modprobe_conf.pm1
-rw-r--r--perl-install/modules/modules_conf.pm1
2 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/modules/modprobe_conf.pm b/perl-install/modules/modprobe_conf.pm
index 7c80ee687..c9ad3ff5c 100644
--- a/perl-install/modules/modprobe_conf.pm
+++ b/perl-install/modules/modprobe_conf.pm
@@ -2,6 +2,7 @@ package modules::modprobe_conf; # $Id: modprobe_conf.pm 259199 2009-08-13 10:18:
use log;
use common;
+# perl_checker: require modules::any_conf
our @ISA = qw(modules::any_conf);
diff --git a/perl-install/modules/modules_conf.pm b/perl-install/modules/modules_conf.pm
index b75c4e026..5a6242ff5 100644
--- a/perl-install/modules/modules_conf.pm
+++ b/perl-install/modules/modules_conf.pm
@@ -2,6 +2,7 @@ package modules::modules_conf; # $Id: modules_conf.pm 228209 2007-09-16 23:09:00
use log;
use common;
+# perl_checker: require modules::any_conf
our @ISA = qw(modules::any_conf);
whatNetPrinter {
return () if $#hostips < 0;
my $hostlist = join (" ", @hostips);
- # Scan network for printers
+ # Scan network for printers, the timeout settings are there to avoid
+ # delays caused by machines blocking their ports with a firewall
local *F;
open F, ($::testing ? "" : "chroot $prefix/ ") .
- "/bin/sh -c \"export LC_ALL=C; nmap -r -P0 -p $portlist $hostlist\" |"
+ "/bin/sh -c \"export LC_ALL=C; nmap -r -P0 --host_timeout 400 --initial_rtt_timeout 200 -p $portlist $hostlist\" |"
or return @res;
my $host = "";
my $ip = "";