# default
my %dateformats = (
"dd.mm.yy" => "%d.%m.%Y",
- "dd-mm-yy" => "%d-%m-%Y",
"dd/mm/yy" => "%d/%m/%Y",
"mm/dd/yy" => "%m/%d/%Y",
- "mm-dd-yy" => "%m-%d-%Y",
"yyyy-mm-dd" => "%Y-%m-%d",
);
$amount = 0;
}
+ $amount *= 1;
+
# Hey watch out! The amount can be an exponential term like 1.13686837721616e-13
my $neg = ($amount =~ s/^-//);