chiark / gitweb /
compatibility with obsidian
authorWayne Schlitt <agthisell@yahoo.com>
Mon, 16 Oct 2017 17:08:53 +0000 (18:08 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 16 Oct 2017 17:08:53 +0000 (18:08 +0100)
yarrg/CommodsScrape.pm
yarrg/yppedia-chart-parser

index ccc2d98bd0ea4624fb7d977e5411b8459a414686..2cd1148f9a3f1c60a97e22cf3b0d1f60d5a84e47 100644 (file)
@@ -62,7 +62,7 @@ sub yppedia_chart_parse ($$ $$$$ $) {
            m/^\{\{ chart\ label \|(\d+)\|(\d+)\| .*
                    (?: \<(?: big|center )\>)* \'+
                    (?: \[\[ | \{\{ )
-                   [^][\']* \| ([^][\'|]+)\ archipelago
+                   [^][]* \| ([^][|]+)\ archipelago
                    (?: \]\] | \}\} )
                    \'+ (?: \<\/(?: big|center )\>)* \}\}$/xi) {
            printf $debugfh "%2d,%-2d arch %s\n", $x,$y,$arch;
index 52bd4f7e60e5920be0f278fcc7b29e4378e8f4ed..9cda849c761f82333c52706eae9c3505a7c09d54 100755 (executable)
@@ -369,7 +369,8 @@ sub compare_island_lists () {
            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");
            }
        }