|
|
|
@ -2231,7 +2231,7 @@ DONE
|
|
|
|
|
sub get_lock
|
|
|
|
|
{
|
|
|
|
|
my $lockfile = "$ENV{HOME}/.tdesvn-lock";
|
|
|
|
|
sysopen LOCKFILE, $lockfile, O_WRONLY | O_CREAT | O_EXCL;
|
|
|
|
|
sysopen LOCTDEFILE, $lockfile, O_WRONLY | O_CREAT | O_EXCL;
|
|
|
|
|
my $errorCode = $!; # Save for later testing.
|
|
|
|
|
|
|
|
|
|
# Install signal handlers to ensure that the lockfile gets closed.
|
|
|
|
@ -2298,16 +2298,16 @@ sub get_lock
|
|
|
|
|
# twice.
|
|
|
|
|
warning " y[WARNING]: stale tdesvn-build lockfile found, deleting.";
|
|
|
|
|
unlink $lockfile;
|
|
|
|
|
sysopen LOCKFILE, $lockfile, O_WRONLY | O_CREAT | O_EXCL and do
|
|
|
|
|
sysopen LOCTDEFILE, $lockfile, O_WRONLY | O_CREAT | O_EXCL and do
|
|
|
|
|
{
|
|
|
|
|
print LOCKFILE "$$\n";
|
|
|
|
|
close LOCKFILE;
|
|
|
|
|
print LOCTDEFILE "$$\n";
|
|
|
|
|
close LOCTDEFILE;
|
|
|
|
|
};
|
|
|
|
|
return 1; # Hope the sysopen worked.
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
print LOCKFILE "$$\n";
|
|
|
|
|
close LOCKFILE;
|
|
|
|
|
print LOCTDEFILE "$$\n";
|
|
|
|
|
close LOCTDEFILE;
|
|
|
|
|
|
|
|
|
|
# Even if we fail it's generally better to allow the script to proceed
|
|
|
|
|
# without being a jerk about things, especially as more non-CLI-skilled
|
|
|
|
@ -2320,7 +2320,7 @@ sub close_lock
|
|
|
|
|
{
|
|
|
|
|
my $lockfile = "$ENV{HOME}/.tdesvn-lock";
|
|
|
|
|
|
|
|
|
|
close LOCKFILE;
|
|
|
|
|
close LOCTDEFILE;
|
|
|
|
|
unlink $lockfile;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|