sub output_planar_graph () {
foreach my $ra (sort keys %region) {
o(plag_prs($ra), "\n");
- if ($ra eq 'NZ' || $ra =~ m/^L2?$/) { o(" :outer\n"); }
+ if ($ra eq $c{Sea} || $ra =~ m/^L2?$/) { o(" :outer\n"); }
my $adjs = $region{$ra}{Adj};
foreach my $adj (reverse @$adjs) {
o(" ", plag_prs($adj->{Name}), "\n");