[Po4a-commits] "po4a/lib/Locale/Po4a TransTractor.pm,1.105,1.106"

[Nicolas FRANÇOIS]

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

Modified Files:
	TransTractor.pm 
Log Message:
	* lib/Locale/Po4a/TransTractor.pm: Pass the PO options to the
	created Locale::Po4a::Po objects.


Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -d -r1.105 -r1.106
--- TransTractor.pm	5 Apr 2009 12:01:19 -0000	1.105
+++ TransTractor.pm	21 Jul 2009 13:29:42 -0000	1.106
@@ -343,10 +343,14 @@
     ## Create our private data
     my %po_options;
     $po_options{'porefs'} = $self->{options}{'porefs'};
+    $po_options{'copyright-holder'} = $options{'copyright-holder'};
+    $po_options{'msgid-bugs-address'} = $options{'msgid-bugs-address'};
+    $po_options{'package-name'} = $options{'package-name'};
+    $po_options{'package-version'} = $options{'package-version'};
     
     # private data
     $self->{TT}=(); 
-    $self->{TT}{po_in}=Locale::Po4a::Po->new();
+    $self->{TT}{po_in}=Locale::Po4a::Po->new(\%po_options);
     $self->{TT}{po_out}=Locale::Po4a::Po->new(\%po_options);
     # Warning, this is an array of array:
     #  The document is splited on lines, and for each