From: 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://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=20b0335845c002b6c958a405d61bfa3ae4136f4d;p=spider.git 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',