[Po4a-commits] po4a/lib/Locale/Po4a Man.pm,1.25,1.26

[Martin Quinson]

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

Modified Files:
	Man.pm 
Log Message:
Convert on the fly the groff horror  \*(lqlibc5\*(rq, which stands for "libc5", with the quotes

Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- Man.pm	11 Aug 2004 16:50:35 -0000	1.25
+++ Man.pm	14 Aug 2004 22:44:04 -0000	1.26
@@ -317,6 +317,9 @@
 		"po4a::man: Here is the faulty line:\n".
 		" %s"),$ref,$origstr)."\n";
     }
+
+    $str =~ s/\\\*\(lq/"/; #"
+    $str =~ s/\\\*\(rq/"/; #"
     
 # The next commented loop should take care of badly nested font modifiers,
 #  if only it worked ;)
@@ -385,6 +388,9 @@
     $str =~ s/E<lt>/</mg;
     # 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; #" 
+
     print STDERR "$str\n" if ($debug{'postrans'});
     return $str;
 }