From d4ddf5f001d09e5a4bfa86f3a2e3c9673eaf842a Mon Sep 17 00:00:00 2001
From: Dima Kogan <dkogan@cds.caltech.edu>
Date: Sun, 6 Dec 2009 14:23:21 -0800
Subject: [PATCH] compile the "number" regext only once

Ignore-this: a47b92945ee7391597dfd931e9367a66

darcs-hash:20091206222321-0cb85-97e4afd4ee0df75d54147a661a76a2fe097e9a8c.gz
---
 driveGnuPlots.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/driveGnuPlots.pl b/driveGnuPlots.pl
index db57e3a..285d2a7 100755
--- a/driveGnuPlots.pl
+++ b/driveGnuPlots.pl
@@ -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()) // <> )