projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix sh/dx on 14050 so it does what one expects
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 054a22ca718dbde98003e13f4824ff76b738ceca..092a01e058beac4a9959d0f6b10f9547ec0abe53 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-15,7
+15,7
@@
package main;
require 5.10.1;
use warnings;
require 5.10.1;
use warnings;
-use vars qw($root $is_win $systime);
+use vars qw($root $is_win $systime
$lockfn
);
# make sure that modules are searched in the order local then perl
BEGIN {
# make sure that modules are searched in the order local then perl
BEGIN {
@@
-48,7
+48,7
@@
BEGIN {
# try to create and lock a lockfile (this isn't atomic but
# should do for now
# try to create and lock a lockfile (this isn't atomic but
# should do for now
-
my
$lockfn = "$root/local_data/cluster.lck"; # lock file name
+ $lockfn = "$root/local_data/cluster.lck"; # lock file name
if (-w $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;
if (-w $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;