Warning beim Watchdog unterdrücken.

diff --git a/SL/Form.pm b/SL/Form.pm
index 06a8910..024cd96 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';