preoptimse: support 2nd L area, L2

[pandemic-rising-tide.git] / generate-plag

diff --git a/generate-plag b/generate-plag
index 0a89ed26c45757e3d5a10f48cc0a8f6824a7fff6..72986e9d5584602b0f43dc5138acdfd4325f416d 100755 (executable)
--- a/generate-plag
+++ b/generate-plag
@@ -10,7 +10,7 @@ use Parse;
 sub output_planar_graph () {
   foreach my $ra (sort keys %region) {
     o(plag_prs($ra), "\n");
-    if ($ra eq 'NZ' || $ra eq 'L') { o(" :outer\n"); }
+    if ($ra eq 'NZ' || $ra =~ m/^L2?$/) { o(" :outer\n"); }
     my $adjs = $region{$ra}{Adj};
     foreach my $adj (reverse @$adjs) {
       o(" ", plag_prs($adj->{Name}), "\n");