package DXM;
use DXVars;
-use Carp;
+use DXDebug;
my $localfn = "$main::root/local/Messages";
my $fn = "$main::root/perl/Messages";
}
return "unknown message '$m' in lang '$lang'" if !defined $s;
my $ans = eval qq{ "$s" };
- confess $@ if $@;
+ warn $@ if $@;
return $ans;
}