[Po4a-commits] po4a/lib/Locale/Po4a Man.pm,1.87,1.88

[Nicolas FRANCOIS]

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

Modified Files:
	Man.pm 
Log Message:
Fix some warnings and a bug with options set to 0.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -d -r1.87 -r1.88
--- Man.pm	23 Apr 2005 15:50:52 -0000	1.87
+++ Man.pm	23 Apr 2005 16:09:46 -0000	1.88
@@ -318,7 +318,7 @@
     $self->{options}{'verbose'}='';
 
     foreach my $opt (keys %options) {
-        if ($options{$opt}) {
+        if (defined $options{$opt}) {
             die wrap_mod("po4a::man",
                          dgettext("po4a", "Unknown option: %s"), $opt)
                 unless exists $self->{options}{$opt};
@@ -900,6 +900,9 @@
     my @args=();
     my $buffer="";
     my $escaped=0;
+    if (! defined $arguments) {
+        return @args;
+    }
     # change non-breaking space before to ensure that split does what we want
     # We change them back before pushing into the arguments. The one which
     # will be translated will have the same change again (in pre_trans and