fix the spam lockfile name

[debbugs.git] / Debbugs / Log / Spam.pm

diff --git a/Debbugs/Log/Spam.pm b/Debbugs/Log/Spam.pm
index df2d5e0862c07f1d08d27cbba55ec1a369c4ab39..ab0bc7c694134df3b7ecb4b39fe4fce09ffc3cf2 100644 (file)
--- a/Debbugs/Log/Spam.pm
+++ b/Debbugs/Log/Spam.pm
@@ -136,7 +136,7 @@ Saves changes to the bug log spam file.
 sub save {
     my $self = shift;
     return unless keys %{$self->{spam}};
-    filelock($self->{name});
+    filelock($self->{name}.'.lock');
     open(my $fh,'>',$self->{name}.'.tmp') or
         croak "Unable to open bug log spam '$self->{name}.tmp' for writing: $!";
     binmode($fh,':encoding(UTF-8)');