projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix the issue in DXProt::add_thingy
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 1fc293f209ace278768b9aadf5d88c86c89fa951..1e7f4f16f1cc6fc0b31bd3aa153d77d45ddb40f3 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-13,6
+13,7
@@
package main;
require 5.10.1;
package main;
require 5.10.1;
+
use warnings;
use vars qw($root $is_win $systime $lockfn @inqueue $starttime $lockfn @outstanding_connects
use warnings;
use vars qw($root $is_win $systime $lockfn @inqueue $starttime $lockfn @outstanding_connects
@@
-33,7
+34,8
@@
$user_interval = 11*60; # the interval between unsolicited prompts if no traff
# make sure that modules are searched in the order local then perl
BEGIN {
umask 002;
# make sure that modules are searched in the order local then perl
BEGIN {
umask 002;
-
+ $SIG{'__WARN__'} = sub { warn $_[0] if $DOWARN };
+
# take into account any local::lib that might be present
eval {
require local::lib;
# take into account any local::lib that might be present
eval {
require local::lib;
@@
-87,14
+89,13
@@
BEGIN {
use DXVars;
use SysVar;
use DXVars;
use SysVar;
-use strict;
-
# order here is important - DXDebug snarfs Carp et al so that Mojo errors go into the debug log
use DXDebug;
# order here is important - DXDebug snarfs Carp et al so that Mojo errors go into the debug log
use DXDebug;
-
use Mojolicious 7.26;
use Mojo::IOLoop;
use Mojolicious 7.26;
use Mojo::IOLoop;
+$DOWARN = 1;
+
use Msg;
use IntMsg;
use Internet;
use Msg;
use IntMsg;
use Internet;
@@
-157,6
+158,8
@@
use Web;
use vars qw($version $build $gitversion $gitbranch);
use vars qw($version $build $gitversion $gitbranch);
+use strict;
+
use Local;
use Local;