X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Fpirate-route;fp=yarrg%2Fweb%2Fpirate-route;h=154b37ddee30b5d7bca1aac22c8aa2a46bc25f3f;hb=5cc1eb0200564bcc8d67ecf4250afebaaeff2eff;hp=9dfab7e37309726a924f70d4f42a47cf4e86ab09;hpb=43f6ebdd538a6e75b3d6c43d0ce18b81c972ffd7;p=ypp-sc-tools.db-test.git diff --git a/yarrg/web/pirate-route b/yarrg/web/pirate-route index 9dfab7e..154b37d 100644 --- a/yarrg/web/pirate-route +++ b/yarrg/web/pirate-route @@ -1,18 +1,14 @@
\n\n"; } +#---------- initial checks, startup, main entry form ---------- + die "unknown ocean $a{Ocean} ?" unless grep { $_ eq $a{Ocean} } ocean_list(); @@ -90,7 +88,9 @@ $debug => 0