From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 1 Jun 2007 07:45:33 +0000 (+0000)
Subject: Die Ausgabe von Data::Dumper sortieren lassen, damit sie besser durchsuchbar ist.
X-Git-Tag: release-2.4.3^2~220
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=91aac6c6ce0775d1236d1c2de9c477a9b3f4adf8;p=kivitendo-erp.git

Die Ausgabe von Data::Dumper sortieren lassen, damit sie besser durchsuchbar ist.
---

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index cbb32f9cd..16ecf9af5 100644
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -127,7 +127,9 @@ sub dump {
   my ($self, $level, $name, $variable) = @_;
 
   if ($data_dumper_available) {
-    $self->message($level, "dumping ${name}:\n" . Dumper($variable));
+    my $dumper = Data::Dumper->new([$variable]);
+    $dumper->Sortkeys(1);
+    $self->message($level, "dumping ${name}:\n" . $dumper->Dump());
   } else {
     $self->message($level,
                    "dumping ${name}: Data::Dumper not available; "