X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXM.pm;h=30a0cc1e221dfa7c858b165d3ef7cdf879270b78;hb=28adf81497391e90c2c46201f7f3bc23986251fb;hp=5a3b22e3b086415804cde6ab1c317e9fae16bed8;hpb=c36b11f5bda0555f5ff58e0499c77652b5d0f6ca;p=spider.git diff --git a/perl/DXM.pm b/perl/DXM.pm index 5a3b22e3..30a0cc1e 100644 --- a/perl/DXM.pm +++ b/perl/DXM.pm @@ -28,6 +28,10 @@ sub msg my $m = shift; my $ref = $msgs{$lang}; my $s = $ref->{$m} if $ref; + if (!$s && $lang ne 'en') { + $ref = $msgs{'en'}; + $s = $ref->{$m}; + } return "unknown message '$m' in lang '$lang'" if !defined $s; my $ans = eval qq{ "$s" }; confess $@ if $@;