From 9e7b2a51983738ccfaac47f13142889fa6f9a7b0 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 4 Sep 2010 16:10:49 +0100 Subject: [PATCH] yarrg/commod-results-processor: fix potential pctb upload bug Only look at islands[] entries for correct ocean --- yarrg/commod-results-processor | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/yarrg/commod-results-processor b/yarrg/commod-results-processor index 3482381..d427f74 100755 --- a/yarrg/commod-results-processor +++ b/yarrg/commod-results-processor @@ -550,10 +550,11 @@ sub main__uploadpctb () { my $islandid; while ($resptxt =~ - m/^islands\[\d+\]\[\d+\]\=new\s+option\(\"(.*)\"\,(\d+)\)\s*$/mig + m/^islands\[(\d+)\]\[\d+\]\=new\s+option\(\"(.*)\"\,(\d+)\)\s*$/mig ) { - next unless $1 eq $island; - $islandid= $2; + next unless $1 eq $oceanids[0]; + next unless $2 eq $island; + $islandid= $3; } defined $islandid or die; -- 2.30.2