L10N/DBI.pm: handle maketext exceptions properly, RT13258

[freeside.git] / FS / FS / L10N / DBI.pm

diff --git a/FS/FS/L10N/DBI.pm b/FS/FS/L10N/DBI.pm
index 2f01a6a..db387db 100644 (file)
--- a/FS/FS/L10N/DBI.pm
+++ b/FS/FS/L10N/DBI.pm
@@ -14,8 +14,14 @@ sub maketext {
     $Lexicon{$key} = FS::Msgcat::_gettext( $key, $lang );
   }
 
-  $lh->SUPER::maketext($key, @rest);
+  my $res = eval { $lh->SUPER::maketext($key, @rest) };
+  if ( !$res || $@ ) {
+    my $errmsg = "MT error for '$key'";
+    warn "$errmsg\n";
+    return $errmsg;
+  }
 
+  $res;
 }
 
 1;