Fun fact: das war seit Refactoring in 2008-12-15 kaputt (Commit
40d52f50).
my $self = shift;
my $amount = shift;
my $width = shift;
my $self = shift;
my $amount = shift;
my $width = shift;
$amount =~ s/-//;
my ($places, $decimal_places) = split m/\./, "$amount";
$amount =~ s/-//;
my ($places, $decimal_places) = split m/\./, "$amount";
if (0 < $width) {
$width -= 2;
if (0 < $width) {
$width -= 2;
- $places = sprintf("\%0${stellen}d", $places);
+ $places = sprintf("\%0${width}d", $places);
}
$decimal_places .= '0' if (2 > length $decimal_places);
}
$decimal_places .= '0' if (2 > length $decimal_places);