[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.139,1.140"

[Nicolas FRANCOIS]

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

Modified Files:
	Man.pm 
Log Message:
Specify the line reference for "Unsupported font" errors.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.139
retrieving revision 1.140
diff -u -d -r1.139 -r1.140
--- Man.pm	17 Apr 2006 13:13:50 -0000	1.139
+++ Man.pm	1 Jun 2006 20:50:57 -0000	1.140
@@ -793,7 +793,7 @@
     if (defined $self->{type} && $self->{type} =~ m/^(SH|SS)$/) {
         set_regular("B");
     }
-    $str = do_fonts($str);
+    $str = do_fonts($str, $ref);
     if (defined $self->{type} && $self->{type} =~ m/^(SH|SS)$/) {
         set_regular("R");
     }
@@ -1358,8 +1358,8 @@
 
     sub do_fonts {
         # one argument: a string
-        my $str = $_[0];
-        print STDERR "do_fonts('$str')="
+        my ($str, $ref) = (shift, shift);
+        print STDERR "do_fonts('$str', '$ref')="
             if ($debug{'fonts'});
 
         # restore the font stack
@@ -1408,7 +1408,11 @@
                     $str .= "\\f".$elem;
                 }
             } else {
-                die wrap_mod("po4a::man", dgettext("po4a", "Unsupported font in: '%s'."), $elem);
+                die wrap_ref_mod($ref,
+                                 "po4a::man",
+                                 dgettext("po4a",
+                                          "Unsupported font in: '%s'."),
+                                 $elem);
             }
         }
         # Do some simplification (they don't change the font stack)