fixed problem with blank line input (for now)

[spider.git] / perl / DXM.pm

diff --git a/perl/DXM.pm b/perl/DXM.pm
index ee2f4539c050940b81ec6d49a61ee3edc9af778e..fe1bca7db2af02b5e4c41bb8136c0fbe191108f3 100644 (file)
--- a/perl/DXM.pm
+++ b/perl/DXM.pm
@@ -34,7 +34,7 @@ sub msg
        }
        return "unknown message '$m' in lang '$lang'" if !defined $s;
        my $ans = eval qq{ "$s" };
-       confess $@ if $@;
+       warn $@ if $@;
        return $ans;
 }