dgit-repos-server: fixes from testing

[dgit.git] / dgit-repos-server

diff --git a/dgit-repos-server b/dgit-repos-server
index 2a0bf40e5f363eabd93ac3a483538c670f300f8e..7c48b2f322fb3a971a79a341cb61fe8cc29db077 100755 (executable)
--- a/dgit-repos-server
+++ b/dgit-repos-server
@@ -105,7 +105,7 @@ sub acquirelock ($$) {
     my $fh;
     for (;;) {
        close $fh if $fh;
-       $fh = new IO::File ">", $lock or die "open $lock: $!";
+       $fh = new IO::File $lock, ">" or die "open $lock: $!";
        my $ok = flock $fh, $must ? LOCK_EX : (LOCK_EX|LOCK_NB);
        if (!$ok) {
            return undef unless $must;