fix SysVar.pm problems (maybe)

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 4222132c2b982bee9fe2490d99cab9ca184ab224..ca73a8249e81017c3705c34689f156294d7afff8 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -19,6 +19,12 @@ use warnings;
 BEGIN {
        umask 002;
 
+       # take into account any local::lib that might be present
+       eval {
+               require local::lib;
+       };
+       import local::lib unless ($@);
+
        # root of directory tree for this system
        $root = "/spider";
        $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
@@ -59,12 +65,11 @@ BEGIN {
        $systime = time;
 }
 
-                       
-use Mojo::IOLoop;
-
 use DXVars;
 use SysVar;
 
+use Mojo::IOLoop;
+
 use Msg;
 use IntMsg;
 use Internet;