projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
changed return in send_announce to next!
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 9c002766bfdb224c8ed7a00b12577e15cbe19c37..d49c7966f96001d8750d5ca3bfd3e99194ef0433 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
1
"; # the version no of the software
+$version = "1.3
2
"; # 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
@@
-257,7
+257,7
@@
sub process_inqueue
die "\$user not defined for $call" if !defined $user;
if ($error) {
die "\$user not defined for $call" if !defined $user;
if ($error) {
- dbg(
chan
, "DROPPED with $error duff characters");
+ dbg(
'chan'
, "DROPPED with $error duff characters");
} else {
# normal input
$dxchan->normal($line);
} else {
# normal input
$dxchan->normal($line);