better 'number' regexp

This commit is contained in:
Dima Kogan 2011-01-28 14:28:51 -08:00
parent df9ab119d5
commit 58105b064d

View File

@ -440,7 +440,7 @@ sub mainThread
}
# regexp for a possibly floating point, possibly scientific notation number
my $numRE = '[-]?[\d\.]+(?:e[-+]?\d+)?';
my $numRE = '-?\d*\.?\d+(?:[Ee][-+]?\d+)?';
# a point may be preceded by an id
my $pointRE = $options{dataid} ? '(\w+)\s+' : '()';