fix the spam lockfile name

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

diff --git a/Debbugs/Log/Spam.pm b/Debbugs/Log/Spam.pm
index cca94dea7cc7070ac3d0b9031eb99b3f3cd74e8d..ab0bc7c694134df3b7ecb4b39fe4fce09ffc3cf2 100644 (file)
--- a/Debbugs/Log/Spam.pm
+++ b/Debbugs/Log/Spam.pm
@@ -45,7 +45,7 @@ BEGIN{
 use Carp;
 use feature 'state';
 use Params::Validate qw(:types validate_with);
-use Debbugs::Common qw(getbuglocation getbugcomponent);
+use Debbugs::Common qw(getbuglocation getbugcomponent filelock unfilelock);
 
 =head1 FUNCTIONS
 
@@ -135,7 +135,8 @@ Saves changes to the bug log spam file.
 
 sub save {
     my $self = shift;
-    filelock($self->{name});
+    return unless keys %{$self->{spam}};
+    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)');