projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
allow 'route' to find all routable things instead of just nodes
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index fa9e109f56cbe5a1cb3ca8cf7b66307290f1a535..23996b0700d99ce3e18f719081a29c32bb037edf 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-243,8
+243,8
@@
sub decode
my $ref;
eval '$ref = ' . $s;
if ($@) {
my $ref;
eval '$ref = ' . $s;
if ($@) {
- dbg(
'err', $@) if $@
;
- Log('err', $@)
if $@
;
+ dbg(
$@)
;
+ Log('err', $@);
$ref = undef;
}
return $ref;
$ref = undef;
}
return $ref;
@@
-340,7
+340,7
@@
BEGIN {
# try to detect a lockfile (this isn't atomic but
# should do for now
# try to detect a lockfile (this isn't atomic but
# should do for now
- $lockfn = "$root/perl/cluster.l
o
ck"; # lock file name
+ $lockfn = "$root/perl/cluster.lck"; # lock file name
if (-e $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;
if (-e $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;