Commit 1a457aea authored by Leigh B. Stoller's avatar Leigh B. Stoller

Minor fix to previous revision.

parent a621f396
......@@ -210,6 +210,9 @@ sub _checklossrate($)
my ($token) = @_;
return 1
if ("$token" eq "0");
# floating point, no exponent. Stole this out of the perl tutorial.
if (! ($token =~ /^[+-]?(\d+\.\d+|\d+\.|\.\d+)([eE][+-]?\d+)?$/)) {
$DBFieldErrstr = "Improper floating number";
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment