Revision 54272ac3
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 160 | 160 |
my @sorted_names = sort keys %column_lengths; |
| 161 | 161 |
my $format = join '|', map { '%' . $column_lengths{$_} . 's' } @sorted_names;
|
| 162 | 162 |
|
| 163 |
$prefix =~ s|\s*$||; |
|
| 164 |
$prefix .= ' ' if $prefix; |
|
| 163 |
$prefix .= ' ' if $prefix; |
|
| 165 | 164 |
|
| 166 | 165 |
$self->message($level, $prefix . sprintf($format, @sorted_names)); |
| 167 | 166 |
$self->message($level, $prefix . join('+', map { '-' x $column_lengths{$_} } @sorted_names));
|
Auch abrufbar als: Unified diff
Wenn der Benutzer Leerzeichen am Ende will, dann diese nicht entfernen.