From 89ab1e76dcec501c646d5b0158441c73923ec5fb Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 20 Jan 2003 15:26:45 +0000 Subject: [PATCH] add default italian and greek cc --- perl/Prefix.pm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) 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) { -- 2.43.0