X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/7aa53210c8a1d396b5295551b9122b8690698894..58815cbab6c90fcba0d1ad13b5dd67bc0ae9b79e:/SL/LXDebug.pm

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index e22dc0f5e..40ec54c8a 100644
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -20,7 +20,7 @@ use constant STDERR_TARGET => 1;
 
 use Data::Dumper;
 use POSIX qw(strftime getpid);
-use Scalar::Util qw(blessed refaddr reftype weaken);
+use Scalar::Util qw(blessed refaddr weaken);
 use Time::HiRes qw(gettimeofday tv_interval);
 use YAML;
 use SL::Request ();
@@ -176,7 +176,7 @@ sub dump {
     if (blessed($src) && $src->can('as_debug_info')) {
       $dumped{$addr} = $src->as_debug_info;
 
-    } elsif (reftype($src) eq 'ARRAY') {
+    } elsif (ref($src) eq 'ARRAY') {
       $dumped{$addr} = [];
 
       foreach my $entry (@{ $src }) {
@@ -187,7 +187,7 @@ sub dump {
 
       }
 
-    } elsif (reftype($src) eq 'HASH') {
+    } elsif (ref($src) =~ m{^(?:HASH|Form|SL::.+)$}) {
       $dumped{$addr} = {};
 
       foreach my $key (keys %{ $src }) {