- $$valref = ( ($1||''). ($2||''). ($3.'0') ) || 0;
- } elsif ( $$valref =~ /^\s*(\-)?\s*(\d*)(\.\d{2})?\s*$/ ) {
- $$valref = ( ($1||''). ($2||''). ($3||'') ) || 0;
+ $$valref = ( ($1||''). ($2.'0') ) || 0;
+ } elsif ( $$valref =~ /^\s*(\d*)(\.\d{2})?\s*$/ ) {
+ $$valref = ( ($1||''). ($2||'') ) || 0;