my @textnumber = ();
# split amount into chunks of 3
- my @num = reverse split //, $amount;
+ my @num = reverse split //, abs($amount);
my @numblock = ();
my ($i, $appendn);
my @a = ();
if ($num[1] == 0) {
$textnumber = $self->{numbername}{$amount};
} else {
- $amount = $num[0] * 10;
- $textnumber = $self->{numbername}{$amount}.$self->{numbername}{$num[1]};
- }
+ $amount = $num[0] * 10;
+ $textnumber = $self->{numbername}{$amount}.$self->{numbername}{$num[1]};
}
} else {
$textnumber = $self->{numbername}{$amount};