Escape ISO8859-1 characters. msgmerge still hates these strings, but at

least the po file merges.

diff --git a/misc/translator/TmplTokenizer.pm b/misc/translator/TmplTokenizer.pm
index f3ff5b6..104515f 100644 (file)
--- a/misc/translator/TmplTokenizer.pm
+++ b/misc/translator/TmplTokenizer.pm
@@ -526,6 +526,7 @@ sub quote_po ($) {
     # Locale::PO->quote is buggy, it doesn't quote newlines :-/
     $s =~ s/([\\"])/\\\1/gs;
     $s =~ s/\n/\\n/g;
+    $s =~ s/[\177-\377]/ sprintf("\\%03o", ord($&)) /egs;
     return "\"$s\"";
 }