[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.162,1.163"

[Nicolas FRANCOIS]

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

Modified Files:
	Man.pm 
Log Message:
Keep quotes arround mdoc macros' arguments when they contain spaces.
Fix for mdoc.7


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.162
retrieving revision 1.163
diff -u -d -r1.162 -r1.163
--- Man.pm	16 Jul 2006 10:11:13 -0000	1.162
+++ Man.pm	16 Jul 2006 10:31:08 -0000	1.163
@@ -2116,7 +2116,16 @@
 #        (add a flag in Dd, and always check that this flag is set in the
 #        other mdoc macros)
 sub translate_mdoc {
-    my ($self,$macroname,$macroarg)=(shift,shift,join(" ", at _));
+    my ($self,$macroname)=(shift,shift);
+    my $macroarg = "";
+    foreach (@_) {
+        $macroarg.=" " if (length $macroarg);
+        if ($_ =~ m/\s/) {
+            $macroarg.="\"$_\"";
+        } else {
+            $macroarg.=$_;
+        }
+    }
 
     $self->pushline("$macroname ".$self->t($macroarg)."\n");
 }