[Po4a-commits] po4a/lib/Locale/Po4a Man.pm,1.27,1.28

[Martin Quinson]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv22422

Modified Files:
	Man.pm 
Log Message:
handle groff horror in a better way, where I don't put them where they are not wanted (precious since it's impossible to quote " in translator text)

Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- Man.pm	15 Aug 2004 03:49:05 -0000	1.27
+++ Man.pm	15 Aug 2004 08:14:39 -0000	1.28
@@ -318,8 +318,8 @@
 		" %s"),$ref,$origstr)."\n";
     }
 
-    $str =~ s/\\\*\(lq/"/; #"
-    $str =~ s/\\\*\(rq/"/; #"
+    $str =~ s/\\\*\(lq/``/;
+    $str =~ s/\\\*\(rq/''/;
     
 # The next commented loop should take care of badly nested font modifiers,
 #  if only it worked ;)
@@ -389,7 +389,8 @@
     # Don't do that, because we'll go into trouble if previous line was .TP
     $str =~ s/^\\f([BI])(.*?)\\f[RP]$/\.$1 $2/mg;
     
-    $str =~ s/"([^"]*)"/\\\*\(lq$1\\\*\(rq/mg; #" 
+    $str =~ s/``/\\\*\(lq/g;
+    $str =~ s/''/\\\*\(rq/g;
 
     print STDERR "$str\n" if ($debug{'postrans'});
     return $str;