do not override --country option

1 files changed, 1 insertions, 1 deletions

diff --git a/mdkonline b/mdkonline
index e6a22ae4..7ade9d20 100755
--- a/mdkonline
+++ b/mdkonline
@@ -97,7 +97,7 @@ my @greets = (N("Mr."), N("Mrs."), N("Ms."));
 
 my %countries = map { lang::c2name($_) => $_ } lang::list_countries();
 my $locale = lang::read('', $>);
-$country = lang::c2name($locale->{country});
+$country ||= lang::c2name($locale->{country});
 my $lang = $locale->{lang} || 'en_US';
 
 my $descboxname;