From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 5 Nov 2009 16:10:01 +0000 (+0000)
Subject: Cope with exponential notation in row output from glpsol
X-Git-Tag: 5.6~2
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=commitdiff_plain;h=f04037c4c0e6680c6b54aa7b367d0a53c70f64f1

Cope with exponential notation in row output from glpsol
---

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);