[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.112,1.113"

[Martin Quinson]

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

Modified Files:
	Man.pm 
Log Message:
Check one option content validity; mark one more string for translation

Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.112
retrieving revision 1.113
diff -u -d -r1.112 -r1.113
--- Man.pm	24 Sep 2005 19:13:45 -0000	1.112
+++ Man.pm	26 Sep 2005 11:28:37 -0000	1.113
@@ -441,6 +441,10 @@
     }
 
     if (defined $options{'groff_code'}) {
+        unless ($options{'groff_code'} =~ m/fail|verbatim|translated/) {
+          die wrap_mod("po4a::man", dgettext("po4a",
+               "Invalid 'groff_code' value. Must be one of 'fail', 'verbatim', 'translated'."));
+        }
         $groff_code = $options{'groff_code'};
     }
 
@@ -470,7 +474,7 @@
                $no_wrap_begin{$1} = 1;
                $no_wrap_end{$2} = 1;
             } else {
-                die "The no_wrap parameters must be a set of comma-separated begin:end couples.\n"
+                die wrap_mod("po4a::man", dgettext("po4a","The no_wrap parameters must be a set of comma-separated begin:end couples.\n"));
             }
         }
     }