X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=8dc14ed8a8b0625f613bd359645287c239ad9842;hb=fb554d0fdb1d30120dbfff15514c51f683dc17a8;hp=49bd016cd42a3781f365181f02a876bf93416a56;hpb=61cdf7dc2b72c1898850a4d2aa403d712f22f8ee;p=spider.git diff --git a/perl/cluster.pl b/perl/cluster.pl index 49bd016c..8dc14ed8 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -20,9 +20,6 @@ BEGIN { unshift @INC, "$root/perl"; # this IS the right way round! unshift @INC, "$root/local"; - -# require Exporter; -# $Exporter::Verbose = 1; } use Msg; @@ -52,7 +49,7 @@ package main; @inqueue = (); # the main input queue, an array of hashes $systime = 0; # the time now (in seconds) -$version = "1.20"; # the version no of the software +$version = "1.21"; # the version no of the software $starttime = 0; # the starting time of the cluster # handle disconnections