From 914b79874caf83dec927da037f2a918a6d7f5d67 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 12 Sep 2002 22:46:06 +0000 Subject: - discard ­ (ie \x{ad}) - handle xxx 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