X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FLog%2FSpam.pm;fp=Debbugs%2FLog%2FSpam.pm;h=df2d5e0862c07f1d08d27cbba55ec1a369c4ab39;hb=fdec16f10fb4c0cb7e508e2eb709c8869172aadf;hp=cca94dea7cc7070ac3d0b9031eb99b3f3cd74e8d;hpb=8e975874165d40eeae1c36fb75ad34ab161c3940;p=debbugs.git

diff --git a/Debbugs/Log/Spam.pm b/Debbugs/Log/Spam.pm
index cca94de..df2d5e0 100644
--- 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,6 +135,7 @@ Saves changes to the bug log spam file.
 
 sub save {
     my $self = shift;
+    return unless keys %{$self->{spam}};
     filelock($self->{name});
     open(my $fh,'>',$self->{name}.'.tmp') or
         croak "Unable to open bug log spam '$self->{name}.tmp' for writing: $!";