Warning beim Watchdog unterdrücken.

diff --git a/SL/Form.pm b/SL/Form.pm
index 06a8910a7629ae5ec37467d624e36782847dd014..024cd96d882b0573be9541178b40682f24fb515b 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -251,6 +251,7 @@ sub new {
 
   my $self = {};
 
+  no warnings 'once';
   if ($LXDebug::watch_form) {
     require SL::Watchdog;
     tie %{ $self }, 'SL::Watchdog';