chiark / gitweb /
Merge branch 'stable-5.x' into web
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Thu, 5 Nov 2009 16:33:19 +0000 (16:33 +0000)
committerIan Jackson <Ian.Jackson@eu.citrix.com>
Thu, 5 Nov 2009 16:33:19 +0000 (16:33 +0000)
yarrg/commod-update-receiver
yarrg/web/routetrade

index 123ca0c..2059ad7 100755 (executable)
@@ -129,7 +129,7 @@ foreach my $islands (values %$arches) {
 fail("unknown island ".errsan($o{'island'})) unless $island_found;
 
 $o{'timestamp'}= must_param('timestamp', "^([1-9]\\d{1,20})\$");
-fail("clock skew") if $o{'timestamp'} >= $now;
+fail("clock skew") if $o{'timestamp'} > $now;
 
 my $indatafh= upload('data');
 defined $indatafh or fail("data is not a file");
index ce319fa..b198b9b 100644 (file)
@@ -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);