X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=pctb%2FCommods.pm;fp=pctb%2FCommods.pm;h=b348c17812373ab72405c9eebdfd8a0a4c56c977;hb=3b69b2e8a477a5d0544717dc86aad22498347060;hp=75d48c4ee9d2ed707d4da20268274cdbfe474546;hpb=9d0479a97adee7ddc6470f6b8d3916ead77d1748;p=ypp-sc-tools.main.git diff --git a/pctb/Commods.pm b/pctb/Commods.pm index 75d48c4..b348c17 100644 --- a/pctb/Commods.pm +++ b/pctb/Commods.pm @@ -84,7 +84,7 @@ sub parse_master_master1 ($$) { } elsif (m/^routes (\w+)$/) { my $ocean= $1; @ctx= (sub { - m/^(\S[^\t]*\S)\t+(\S[^\t]*\S)\t+([1-9][0-9]{0,2})$/ or die; + m/^(\S[^\t]*\S),\s*(\S[^\t]*\S),\s*([1-9][0-9]{0,2})$/ or die; $routes{$ocean}{$1}{$2}= $3; }); } elsif (m/^client (\S+.*\S)$/) {