fix failure to import locking funcs and don't save empty spamlogs

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

diff --git a/Debbugs/Log/Spam.pm b/Debbugs/Log/Spam.pm
index cca94dea7cc7070ac3d0b9031eb99b3f3cd74e8d..df2d5e0862c07f1d08d27cbba55ec1a369c4ab39 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,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: $!";