From: minima <minima>
Date: Tue, 25 Jun 2002 11:32:22 +0000 (+0000)
Subject: remove debugging from show prefix
X-Git-Tag: R_1_50~52
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=20b0335845c002b6c958a405d61bfa3ae4136f4d

remove debugging from show prefix
remove redundant 3XA
---

diff --git a/cmd/show/prefix.pl b/cmd/show/prefix.pl
index ed53d927..8177e1e5 100644
--- 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 596dff12..3710a706 100644
--- 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:
     3W,XV;
 Republic of Guinea:       35:  46:  AF:    9.50:    13.70:     0.0:  3X:
-    3X,3XA;
+    3X;
 Bouvet:                   38:  67:  AF:  -54.50:    -3.40:     0.0:  3Y/b:
     3Y;
 Peter I I.:               12:  72:  SA:  -68.80:    90.60:     6.0:  3Y/p:
diff --git a/data/prefix_data.pl b/data/prefix_data.pl
index 5b221bd8..c6d0bbb0 100644
--- 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',