[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.159,1.160"

[Nicolas FRANCOIS]

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

Modified Files:
	Man.pm 
Log Message:
Support for empty .B or .I followed by commands, with a warning.
Thanks to Thomas Huriaux.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.159
retrieving revision 1.160
diff -u -d -r1.159 -r1.160
--- Man.pm	14 Jul 2006 22:09:06 -0000	1.159
+++ Man.pm	15 Jul 2006 21:54:04 -0000	1.160
@@ -608,12 +608,14 @@
                 $line = $macro."$insert_font\\f$1".$arg;
                 $ref = $r2;
             } elsif ($l2 =~ /^[.']/) {
-                die wrap_ref_mod($ref, "po4a::man", dgettext("po4a",
-                        "po4a does not support font modifiers followed by a ".
-                        "command.  You should either remove the font modifier ".
-                        "'%s', or integrate a \\f font modifier in the ".
-                        "following command ('%s')"
-                        ), $line, $l2);
+                warn wrap_ref_mod($ref, "po4a::man", dgettext("po4a",
+                         "Font modifiers followed by a command may disturb ".
+                         "po4a.  You should either remove the font modifier ".
+                         "'%s', or integrate a \\f font modifier in the ".
+                         "following command ('%s'), but continuing anyway."
+                         ), $line, $l2);
+                $line = "PO4A-INLINE:$line:PO4A-INLINE";
+                $self->SUPER::unshiftline($l2,$r2);
             } else {
                 # convert " to the groff's double quote glyph; it will be
                 # converted back to " in pre_trans. It is needed because