projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
removed ~ from the end of a PC18
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index d49c7966f96001d8750d5ca3bfd3e99194ef0433..308b1d90b987104618df84182a10399b6f94ea38 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-67,7
+67,7
@@
package main;
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
@inqueue = (); # the main input queue, an array of hashes
$systime = 0; # the time now (in seconds)
-$version = "1.3
2
"; # the version no of the software
+$version = "1.3
4
"; # the version no of the software
$starttime = 0; # the starting time of the cluster
$lockfn = "cluster.lock"; # lock file name
$starttime = 0; # the starting time of the cluster
$lockfn = "cluster.lock"; # lock file name
@@
-368,7
+368,7
@@
print "orft we jolly well go ...\n";
dbg('chan', "DXSpider version $version started...");
for (;;) {
my $timenow;
dbg('chan', "DXSpider version $version started...");
for (;;) {
my $timenow;
- Msg->event_loop(1, 0.
00
1);
+ Msg->event_loop(1, 0.1);
$timenow = time;
process_inqueue(); # read in lines from the input queue and despatch them
$timenow = time;
process_inqueue(); # read in lines from the input queue and despatch them