X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6e00b261a86eaa1ba0bc9da62bd2f42f94e1bac8..c6bdd35aede8fce70487fc024191295ef4edd3da:/SL/LXDebug.pm diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm index d902e2ab2..684a1e7e3 100644 --- a/SL/LXDebug.pm +++ b/SL/LXDebug.pm @@ -160,8 +160,7 @@ sub dump_sql_result { my @sorted_names = sort keys %column_lengths; my $format = join '|', map { '%' . $column_lengths{$_} . 's' } @sorted_names; - $prefix =~ s|\s*$||; - $prefix .= ' ' if $prefix; + $prefix .= ' ' if $prefix; $self->message($level, $prefix . sprintf($format, @sorted_names)); $self->message($level, $prefix . join('+', map { '-' x $column_lengths{$_} } @sorted_names));