- $param->{"setup_cost"} =~ /^\s*(\d*(?:\.?\d{1,2}))\s*$/
- or $error .= "Illegal setup_cost " . $param->{"setup_cost"} . " ";
- my $setup_cost = $1;
+ if ( $param->{setup_cost} =~ /\S/ ) {
+ $param->{setup_cost} =~ /^\s*(\d*(?:\.?\d{1,2}))\s*$/
+ or $error .= "Illegal setup_cost " . $param->{setup_cost} . " ";
+ $setup_cost = $1;
+ }