compile the "number" regext only once

Ignore-this: a47b92945ee7391597dfd931e9367a66

darcs-hash:20091206222321-0cb85-97e4afd4ee0df75d54147a661a76a2fe097e9a8c.gz
This commit is contained in:
Dima Kogan 2009-12-06 14:23:21 -08:00
parent 59fdc08dc6
commit d4ddf5f001

View File

@ -186,8 +186,8 @@ sub mainThread {
}
}
# regexp for a possibly floating point, possibly scientific notation number
my $numRE = qr/([-]?[0-9\.]+(?:e[-]?[0-9]+)?)/;
# regexp for a possibly floating point, possibly scientific notation number, fully captured
my $numRE = qr/([-]?[0-9\.]+(?:e[-]?[0-9]+)?)/o;
my $xlast;
while( $_ = ($dataQueue && $dataQueue->dequeue()) // <> )