m/^\{\{ chart\ label \|(\d+)\|(\d+)\| .*
(?: \<(?: big|center )\>)* \'+
(?: \[\[ | \{\{ )
- [^][\']* \| ([^][\'|]+)\ archipelago
+ [^][]* \| ([^][|]+)\ archipelago
(?: \]\] | \}\} )
\'+ (?: \<\/(?: big|center )\>)* \}\}$/xi) {
printf $debugfh "%2d,%-2d arch %s\n", $x,$y,$arch;
if (!defined $wtarch) {
error("island from chart not found on ocean page: $island");
} elsif (defined $wiarch and $wtarch ne $wiarch) {
- error("island in $wtarch on ocean page but".
+# error("island in $wtarch on ocean page but".
+ warning("island in $wtarch on ocean page but".
" concluded $wiarch from chart: $island");
}
}