Revision 91aac6c6
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 127 | 127 |
my ($self, $level, $name, $variable) = @_; |
| 128 | 128 |
|
| 129 | 129 |
if ($data_dumper_available) {
|
| 130 |
$self->message($level, "dumping ${name}:\n" . Dumper($variable));
|
|
| 130 |
my $dumper = Data::Dumper->new([$variable]); |
|
| 131 |
$dumper->Sortkeys(1); |
|
| 132 |
$self->message($level, "dumping ${name}:\n" . $dumper->Dump());
|
|
| 131 | 133 |
} else {
|
| 132 | 134 |
$self->message($level, |
| 133 | 135 |
"dumping ${name}: Data::Dumper not available; "
|
Auch abrufbar als: Unified diff
Die Ausgabe von Data::Dumper sortieren lassen, damit sie besser durchsuchbar ist.