summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xscripts/tdesvn-build14
1 files changed, 7 insertions, 7 deletions
diff --git a/scripts/tdesvn-build b/scripts/tdesvn-build
index ac998f28..657b0390 100755
--- a/scripts/tdesvn-build
+++ b/scripts/tdesvn-build
@@ -2231,7 +2231,7 @@ DONE
sub get_lock
{
my $lockfile = "$ENV{HOME}/.tdesvn-lock";
- sysopen LOCTDEFILE, $lockfile, O_WRONLY | O_CREAT | O_EXCL;
+ sysopen LOCKFILE, $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 LOCTDEFILE, $lockfile, O_WRONLY | O_CREAT | O_EXCL and do
+ sysopen LOCKFILE, $lockfile, O_WRONLY | O_CREAT | O_EXCL and do
{
- print LOCTDEFILE "$$\n";
- close LOCTDEFILE;
+ print LOCKFILE "$$\n";
+ close LOCKFILE;
};
return 1; # Hope the sysopen worked.
}
- print LOCTDEFILE "$$\n";
- close LOCTDEFILE;
+ print LOCKFILE "$$\n";
+ close LOCKFILE;
# 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 LOCTDEFILE;
+ close LOCKFILE;
unlink $lockfile;
}