warn about non-numbers even when -q(uiet).

This commit is contained in:
Tim Connors 2021-12-06 22:35:25 +11:00
parent 2fcb2160d3
commit 0785a260e9

View file

@ -48,7 +48,7 @@ sub is_num {
if ( $val =~ /^[-+]?(\d*\.?\d+|\d+\.?\d*)+$/ ) {
return 1;
}
print "is_num($val)=0\n" if !$quiet;
print "is_num($val)=0\n"; # should probably warn about failures to parse values, but if you don't care about a particular error, perhaps add this clause: if !$quiet;
return 0;
}