From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 1 Mar 2017 16:21:40 +0000 (+0100)
Subject: LXDebug::dump: nur Form-Instanzen als Hash behandeln, nicht alle Hash-basierten Objekte
X-Git-Tag: release-3.5.4~1236
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=0be6a682a51f9310a446ded5d98b53ae90c5f598;p=kivitendo-erp.git

LXDebug::dump: nur Form-Instanzen als Hash behandeln, nicht alle Hash-basierten Objekte
---

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index e22dc0f5e..2c06b8b86 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)$}) {
       $dumped{$addr} = {};
 
       foreach my $key (keys %{ $src }) {