From 914b79874caf83dec927da037f2a918a6d7f5d67 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Sep 2002 22:46:06 +0000
Subject: - discard &shy; (ie \x{ad}) - handle
 <quote><literal>xxx</literal></quote> specially to not have double double
 quotes

---
 perl-install/share/po/help_xml2pm.pl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/share')

diff --git a/perl-install/share/po/help_xml2pm.pl b/perl-install/share/po/help_xml2pm.pl
index e079cc22d..4f2a04e0c 100755
--- a/perl-install/share/po/help_xml2pm.pl
+++ b/perl-install/share/po/help_xml2pm.pl
@@ -94,6 +94,7 @@ sub rewrite1 {
 	    foreach ($tree) {
 		s/\s+/ /gs;
 		s/"/\\"/g;
+		s/\x{ad}//g;
 		s/\x{2013}/-/g;
 	    }
 	    push @l, $tree
@@ -171,6 +172,7 @@ sub rewrite2_ {
 	$text =~ s/\s+$//;
 	qq(\n$text\n);
     } elsif (member($tree->{tag}, 'quote', 'citetitle', 'foreignphrase')) {
+	$text =~ s/^\Q$i18ned_open_label_quote\E(.*)\Q$i18ned_close_label_quote\E$/$1/ if $i18ned_open_label_quote;
 	($i18ned_open_text_quote || "``") . $text . ($i18ned_close_text_quote || "''");
     } elsif (member($tree->{tag}, 'guilabel', 'guibutton', 'guimenu', 'literal', 'filename')) {
 	($i18ned_open_label_quote || "\\\"") . $text . ($i18ned_close_label_quote || "\\\"");
-- 
cgit v1.2.1