From 91aac6c6ce0775d1236d1c2de9c477a9b3f4adf8 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 1 Jun 2007 07:45:33 +0000
Subject: [PATCH] Die Ausgabe von Data::Dumper sortieren lassen, damit sie
 besser durchsuchbar ist.

---
 SL/LXDebug.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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; "
-- 
2.20.1