allow fallback to english for help

diff --git a/Changes b/Changes
index 7bb0b12e3dd5c5fc915ad483195f63584bf8d4d5..c261855f8c320bce92d0c1e03b48c15b5d10cc26 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+04Mar01=======================================================================
+1. allow fallback to english for help
 03Mar01=======================================================================
 1. allow incoming and outgoing IP connects direct to cluster.pl
 2. fixed (long standing)a hole in PC17 handling

diff --git a/cmd/help.pl b/cmd/help.pl
index 011519f626924268925dd17082852dedb56dc445..51dfa930a413d56e9e2900b10927dd5068fa602a 100644 (file)
--- a/cmd/help.pl
+++ b/cmd/help.pl
@@ -34,6 +34,7 @@ $lang = 'en' if !$lang;
 my $h = new IO::File;
 
 if (!open($h, "$main::localcmd/Commands_$lang.hlp")) {
+       $lang = 'en';
        if (!open($h, "$main::cmd/Commands_$lang.hlp")) {
                return (1, $self->msg('helpe1'));
        }