Warnung unterdrücken die den Test fehlschlagen lässt.

diff --git a/SL/Git.pm b/SL/Git.pm
index a292a78..76fd8e6 100644 (file)
--- a/SL/Git.pm
+++ b/SL/Git.pm
@@ -34,6 +34,7 @@ sub get_log {
   my $in          = IO::File->new($self->git_exe . qq! log --format='tformat:\%H|\%an|\%ae|\%ai|\%s' ${since_until} |!);
 
   if (!$in) {
+    no warnings 'once';
     $::lxdebug->message(LXDebug::WARN(), "Error spawning git: $!");
     return ();
   }