[Po4a-commits] "po4a/lib/Locale/Po4a Text.pm,1.31,1.32"

[Nicolas FRANÇOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv29540/lib/Locale/Po4a

Modified Files:
	Text.pm 
Log Message:
	* lib/Locale/Po4a/Text.pm: Fix failures: "Unknown option:
	copyright-holder".


Index: Text.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Text.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- Text.pm	15 Jan 2010 19:27:24 -0000	1.31
+++ Text.pm	31 Mar 2010 10:14:31 -0000	1.32
@@ -149,21 +149,21 @@
     my $self = shift;
     my %options = @_;
 
-    my %valid = (
-        asciidoc => 1,
-        breaks => 1,
-        debianchangelog => 1,
-        debug => 1,
-        fortunes => 1,
-        markdown => 1,
-        nobullets => 1,
-        tabs => 1,
-        verbose => 1,
-    );
+    $self->{options}{'asciidoc'} = 1;
+    $self->{options}{'breaks'} = 1;
+    $self->{options}{'debianchangelog'} = 1;
+    $self->{options}{'debug'} = 1;
+    $self->{options}{'fortunes'} = 1;
+    $self->{options}{'markdown'} = 1;
+    $self->{options}{'nobullets'} = 1;
+    $self->{options}{'tabs'} = 1;
+    $self->{options}{'verbose'} = 1;
+
     foreach my $opt (keys %options) {
         die wrap_mod("po4a::text",
                      dgettext("po4a", "Unknown option: %s"), $opt)
-            unless exists $valid{$opt};
+            unless exists $self->{options}{$opt};
+        $self->{options}{$opt} = $options{$opt};
     }
 
     if (defined $options{'nobullets'}) {