LXDebug::dump: Objekte aus Namensraum SL::* ohne »as_debug_info« wie Hash behandeln

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index 2c06b8b..40ec54c 100644 (file)
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -187,7 +187,7 @@ sub dump {
 
       }
 
-    } elsif (ref($src) =~ m{^(?:HASH|Form)$}) {
+    } elsif (ref($src) =~ m{^(?:HASH|Form|SL::.+)$}) {
       $dumped{$addr} = {};
 
       foreach my $key (keys %{ $src }) {