From: minima Date: Mon, 20 Jan 2003 15:26:45 +0000 (+0000) Subject: add default italian and greek cc X-Git-Tag: PRE-1-52~76 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=89ab1e76dcec501c646d5b0158441c73923ec5fb;p=spider.git add default italian and greek cc --- diff --git a/perl/Prefix.pm b/perl/Prefix.pm index a17966a3..aac78907 100644 --- a/perl/Prefix.pm +++ b/perl/Prefix.pm @@ -39,9 +39,15 @@ sub init return $r if $r; # fix up the node's default country codes - push @main::my_cc, (61..67) if !@main::my_cc && $main::mycall =~ /^GB/; - push @main::my_cc, qw(EA EA6 EA8 EA9) if !@main::my_cc && $main::mycall =~ /^E(ABCD)/; - push @main::my_cc, $main::mycall unless @main::my_cc; + unless (@main::my_cc) { + push @main::my_cc, (61..67) if $main::mycall =~ /^GB/; + push @main::my_cc, qw(EA EA6 EA8 EA9) if $main::mycall =~ /^E(ABCD)/; + push @main::my_cc, qw(I IT IS) if $main::mycall =~ /^I/; + push @main::my_cc, qw(SV SV5 SV9) if $main::mycall =~ /^SV/; + + # catchall + push @main::my_cc, $main::mycall unless @main::my_cc; + } my @c; for (@main::my_cc) {