Warnung vermeiden

diff --git a/SL/Auth/SessionValue.pm b/SL/Auth/SessionValue.pm
index cb1c7e386de006cb377dc70bda6414321b0a750e..cfaa6245cc1c26d40f08de20e3abf066cf5b5df1 100644 (file)
--- a/SL/Auth/SessionValue.pm
+++ b/SL/Auth/SessionValue.pm
@@ -37,6 +37,7 @@ sub get {
 
 sub get_dumped {
   my ($self) = @_;
 
 sub get_dumped {
   my ($self) = @_;

+  no warnings 'once';

   local $YAML::Stringify = 1;
   return YAML::Dump($self->get);
 }
   local $YAML::Stringify = 1;
   return YAML::Dump($self->get);
 }