From 793f49ec7f51529ae7925dc434da4cf96f76aa89 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Fri, 20 Feb 2004 00:39:26 +0000
Subject: [PATCH] Escape ISO8859-1 characters. msgmerge still hates these
 strings, but at least the po file merges.

---
 misc/translator/TmplTokenizer.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/misc/translator/TmplTokenizer.pm b/misc/translator/TmplTokenizer.pm
index f3ff5b62a9..104515f9f5 100644
--- 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\"";
 }
 
-- 
2.39.5