[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.164,1.165"

[Nicolas FRANCOIS]

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

Modified Files:
	Man.pm 
Log Message:
When we warn about using conditionnals without groff_code, also show the
reference of the line.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.164
retrieving revision 1.165
diff -u -d -r1.164 -r1.165
--- Man.pm	16 Jul 2006 12:33:24 -0000	1.164
+++ Man.pm	16 Jul 2006 14:04:01 -0000	1.165
@@ -1857,8 +1857,8 @@
 # .ie cond anything  If cond then anything else goto .el.
 # .if cond anything  If cond then anything; otherwise do nothing.
 $macro{'ie'}=$macro{'if'}=sub {
+    my $self = shift;
     if ($groff_code ne "fail") {
-        my $self = shift;
         my $m = $_[0];
         my $paragraph = "@_";
         my ($line,$ref);
@@ -1908,8 +1908,8 @@
                                               "wrap" => 0) );
         }
     } else {
-        die wrap_mod("po4a::man", dgettext("po4a",
-            "This page uses conditionals with '%s'. Since po4a is not a real groff parser, this is not supported."), $_[1]);
+        die wrap_ref_mod($self->{ref}, "po4a::man", dgettext("po4a",
+            "This page uses conditionals with '%s'. Since po4a is not a real groff parser, this is not supported."), $_[0]);
     }
 };
 # .in  N    Change indent according to N (default scaling indicator m).