remove debugging from show prefix

remove redundant 3XA

diff --git a/cmd/show/prefix.pl b/cmd/show/prefix.pl
index ed53d9277b302f072c9cb775f7c80f68024f927f..8177e1e563de4d229e7d5c7ab2d823e23a457b1e 100644 (file)
--- a/cmd/show/prefix.pl
+++ b/cmd/show/prefix.pl
@@ -13,8 +13,8 @@ my @out;
 #print "line: $line\n";
 foreach $l (@list) {
   my @ans = Prefix::extract($l);
-  my $dd = new Data::Dumper([ \@ans ]);
-  print "ans:", $dd->Dumpxs;
+#  my $dd = new Data::Dumper([ \@ans ]);
+#  print "ans:", $dd->Dumpxs;
   next if !@ans;
   my $pre = shift @ans;
   my $a;

diff --git a/data/cty.dat b/data/cty.dat
index 596dff12e48f6029112b9e655109325dc6de5af3..3710a7067866cedc27a5a0563e45b94993fcfe10 100644 (file)
--- a/data/cty.dat
+++ b/data/cty.dat
@@ -28,7 +28,7 @@ Tunisia:                  33:  37:  AF:   36.80:   -10.20:    -1.0:  3V:
 Vietnam:                  26:  49:  AS:   10.80:  -106.70:    -7.0:  3W:\r
     3W,XV;\r
 Republic of Guinea:       35:  46:  AF:    9.50:    13.70:     0.0:  3X:\r
-    3X,3XA;\r
+    3X;\r
 Bouvet:                   38:  67:  AF:  -54.50:    -3.40:     0.0:  3Y/b:\r
     3Y;\r
 Peter I I.:               12:  72:  SA:  -68.80:    90.60:     6.0:  3Y/p:\r

diff --git a/data/prefix_data.pl b/data/prefix_data.pl
index 5b221bd8a162d4d02d6112ad2db6a55adb6fa3f7..c6d0bbb03cc3a53a3eaa60a15aad3cdda33273f9 100644 (file)
--- a/data/prefix_data.pl
+++ b/data/prefix_data.pl
@@ -265,7 +265,6 @@
   '3V' => '13',
   '3W' => '14',
   '3X' => '15',
-  '3XA' => '15',
   '3Y' => '16,17',
   '3Y/B' => '16',
   '3Y/P' => '17',