warn about non-numbers even when -q(uiet).
This commit is contained in:
parent
2fcb2160d3
commit
0785a260e9
1 changed files with 1 additions and 1 deletions
|
|
@ -48,7 +48,7 @@ sub is_num {
|
||||||
if ( $val =~ /^[-+]?(\d*\.?\d+|\d+\.?\d*)+$/ ) {
|
if ( $val =~ /^[-+]?(\d*\.?\d+|\d+\.?\d*)+$/ ) {
|
||||||
return 1;
|
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;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue