From f04037c4c0e6680c6b54aa7b367d0a53c70f64f1 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 5 Nov 2009 16:10:01 +0000
Subject: [PATCH] Cope with exponential notation in row output from glpsol

---
 yarrg/web/routetrade | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yarrg/web/routetrade b/yarrg/web/routetrade
index ce319fa..b198b9b 100644
--- a/yarrg/web/routetrade
+++ b/yarrg/web/routetrade
@@ -546,7 +546,7 @@ if ($qa->{'debug'}) {
 		my ($varname, $qty) = m/^
 			\s* \d+ \s+
 			(\w+) \s+ (?: [A-Z*]+ \s+ )?
-			([0-9.]+) \s
+			([+-e0-9.]+) \s
 			/x or die "$cplex \n==\n $glpsol_out $_ ?";
 		if ($varname =~ m/^f(\d+)s(\d+)_/) {
 			my ($ix,$orgix) = ($1,$2);
-- 
2.30.2