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

[mfinanz.git] / SL / LXDebug.pm

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index cbb32f9cde37eeab7f720bdf9342ee022507fd7e..16ecf9af5fe9257f6caa103483c996d849e747f6 100644 (file)
--- 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; "