Manually added patch 125

[debian/debian-policy.git] / DebianDoc_SGML / Format / LaTeX.pm

diff --git a/DebianDoc_SGML/Format/LaTeX.pm b/DebianDoc_SGML/Format/LaTeX.pm
index 51c474874f560be092f73dd406e80496a486fc79..24e34e3bbe27d6a3a7b173de102c98644a4b3f59 100644 (file)
--- a/DebianDoc_SGML/Format/LaTeX.pm
+++ b/DebianDoc_SGML/Format/LaTeX.pm
@@ -468,6 +468,8 @@ sub _sdata
     output( $DebianDoc_SGML::Format::Driver::sdata_mapping{ $_[0] } )
        if defined( $DebianDoc_SGML::Format::Driver::sdata_mapping{ $_[0] } );
 }
+
+my $in_quote=0;
 sub _sani
 {
     ( $_ ) = @_;
@@ -498,7 +500,15 @@ sub _sani
 #    s/----/---/g;
 
     # quotes
+    if ($in_quote && /\"/) {
+       s/\"/\'\'/;
+       $in_quote=0;
+    }
     s/\"(.*?)\"/\`\`$1\'\'/g;
+    if (/\"/) { # quotes left
+       s/\"/\`\`/;
+       $in_quote=1;
+    }
 
     # dots should be ellipsis "..."
     s/\.\.\./\\dots /g;