preview png, actually make it a png

[pandemic-rising-tide.git] / Parse.pm

diff --git a/Parse.pm b/Parse.pm
index 0553d848f6916f2047d0b90bf15be0f358e27f0b..df732e8ae7f75c5ad23e2d290706abe872f5d437 100644 (file)
--- a/Parse.pm
+++ b/Parse.pm
@@ -1,3 +1,39 @@
+# Parse.pm - module for parsing board definitions
+#   for games very like Pandemic Rising Tide
+#
+# Copyright (C) 2019 Ian Jackson
+#
+# This program is dual licensed, GPv3+ or CC-BY-SA 4.0+.
+# Only to the Pandemic Rising Tide folks, it is permissively licensed.
+#
+#   This program is free software.
+#
+#   You can redistribute it and/or modify it under the terms of the
+#   GNU General Public License as published by the Free Software
+#   Foundation, either version 3 of the License, or (at your option)
+#   any later version; or (at your option), under the terms of the
+#   Creative Commons Attribution-ShareAlike International License,
+#   version 4.0 of that License, or (at your option), any later
+#   version.
+#
+#   This program is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#   General Public License Creative Commons Attribution-ShareAlike
+#   License or the for more details.
+#
+#   You should have received a copy of these licenses along with this
+#   program.  If not, see <https://www.gnu.org/licenses/> and
+#   <https://creativecommons.org/licenses/>.
+#
+# Pandemic and Pandemic Rising Tide are (I think) trademarks of Z-Man
+# games and I use them without permission.
+# 
+# For the avoidance of doubt, I do not consider this program to be a
+# derivative work of the game Pandemic Rising Tide.  However, it is
+# not very useful without a pair of game description files and the
+# only nontrivial game description files I know of are indeed such
+# derivatives.
 
 package Parse;
 
@@ -114,7 +150,7 @@ sub unique_aref ($$) {
 sub region_cmp {
   ($a eq 'L' ) <=> ($b eq 'L' ) or
   ($a eq 'L2') <=> ($b eq 'L2') or
-  ($a eq 'NZ') <=> ($b eq 'NZ') or
+  ($a eq $c{Sea}) <=> ($b eq $c{Sea}) or
    $a          cmp  $b
 }