[Po4a-commits] po4a/lib/Locale/Po4a Man.pm,1.77,1.78

[Nicolas FRAN??OIS]

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

Modified Files:
	Man.pm 
Log Message:
Revert back from die to warn, but use a non-0 status code.
Change the testsuite's check script accordingly.

Also add a -f option to the check script. This option permits to specify a
list of man pages. Useful to check the previous failing pages:
./check -f previous/LISTE.WDIFF


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -d -r1.77 -r1.78
--- Man.pm	15 Feb 2005 15:47:33 -0000	1.77
+++ Man.pm	26 Feb 2005 21:19:42 -0000	1.78
@@ -291,7 +291,7 @@
     $line =~ s/\\\././g;
 
     chomp $line;
-    while ($line =~ /^.*\\$/ || $line =~ /^(\.[BI])\s*$/) {
+    while ($line =~ /\\$/ || $line =~ /^(\.[BI])\s*$/) {
         my ($l2,$r2)=$self->SUPER::shiftline();
         chomp($l2);
         if ($line =~ /^(\.[BI])\s*$/) {
@@ -619,20 +619,24 @@
 	    if ($macro eq '\"' ||
 		$macro eq '"') {
 		if ($line =~ /Pod::Man/) {
-		    die wrap_mod("po4a::man", dgettext("po4a", "This file was generated with Pod::Man. Translate the pod file with the pod module of po4a."));
+		    warn wrap_mod("po4a::man", dgettext("po4a", "This file was generated with Pod::Man. Translate the pod file with the pod module of po4a."));
+		    exit 254;
 		} elsif ($line =~ /generated by help2man/)    {
 		    warn wrap_mod("po4a::man", dgettext("po4a", "This file was generated with help2man. Translate the source file with the regular gettext."));
 		} elsif ($line =~ /with docbook-to-man/)      {
-		    die wrap_mod("po4a::man", dgettext("po4a", "This file was generated with docbook-to-man. Translate the source file with the sgml module of po4a."));
+		    warn wrap_mod("po4a::man", dgettext("po4a", "This file was generated with docbook-to-man. Translate the source file with the sgml module of po4a."));
+		    exit 254;
 		} elsif ($line =~ /generated by docbook2man/) {
-		    die wrap_mod("po4a::man", dgettext("po4a", "This file was generated with docbook2man. Translate the source file with the sgml module of po4a."));
+		    warn wrap_mod("po4a::man", dgettext("po4a", "This file was generated with docbook2man. Translate the source file with the sgml module of po4a."));
+		    exit 254;
 		} elsif ($line =~ /created with latex2man/)   {
 		    warn wrap_mod("po4a::man", dgettext("po4a",
 			"This file was generated with %s. ".
 			"You should translate the source file, but continuing anyway."
 			),"latex2man");
 		} elsif ($line =~ /Generated by db2man.xsl/)  { 
-		    die wrap_mod("po4a::man", dgettext("po4a","This file was generated with db2man.xsl. Translate the source file with the xml module of po4a."));
+		    warn wrap_mod("po4a::man", dgettext("po4a","This file was generated with db2man.xsl. Translate the source file with the xml module of po4a."));
+		    exit 254;
 		} elsif ($line =~ /generated automatically by mtex2man/)  {
 		    warn wrap_mod("po4a::man", dgettext("po4a",
 			"This file was generated with %s. ".