projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
325974c
)
Die Ausgabe von Data::Dumper sortieren lassen, damit sie besser durchsuchbar ist.
author
Moritz Bunkus
<m.bunkus@linet-services.de>
Fri, 1 Jun 2007 07:45:33 +0000
(07:45 +0000)
committer
Moritz Bunkus
<m.bunkus@linet-services.de>
Fri, 1 Jun 2007 07:45:33 +0000
(07:45 +0000)
SL/LXDebug.pm
patch
|
blob
|
history
diff --git
a/SL/LXDebug.pm
b/SL/LXDebug.pm
index
cbb32f9
..
16ecf9a
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; "