[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm,1.90,1.91"

[Nicolas FRANCOIS]

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

Modified Files:
	Po.pm 
Log Message:
	* NEWS, po4a: Add options --package-name and --package-version
	(similar to xgettext's options).
	* lib/Locale/Po4a/Po.pm: Add support for the --package-name and
	--package-version options.


Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -d -r1.90 -r1.91
--- Po.pm	29 Feb 2008 20:03:03 -0000	1.90
+++ Po.pm	2 Apr 2008 20:19:07 -0000	1.91
@@ -150,6 +150,8 @@
     $self->{options}{'porefs'}= 'full';
     $self->{options}{'msgid-bugs-address'}= undef;
     $self->{options}{'copyright-holder'}= "Free Software Foundation, Inc.";
+    $self->{options}{'package-name'}= "PACKAGE";
+    $self->{options}{'package-version'}= "VERSION";
     foreach my $opt (keys %$options) {
         if ($options->{$opt}) {
             die wrap_mod("po4a::po",
@@ -175,12 +177,14 @@
                     ." Copyright (C) YEAR ".
                      $self->{options}{'copyright-holder'}."\n"
                     ." This file is distributed under the same license ".
-                     "as the PACKAGE package.\n"
+                     "as the ".$self->{options}{'package-name'}." package.\n"
                     ." FIRST AUTHOR <EMAIL\@ADDRESS>, YEAR.\n"
                     ."\n"
                     .", fuzzy";
 #    $self->header_tag="fuzzy";
-    $self->{header}=escape_text("Project-Id-Version: PACKAGE VERSION\n".
+    $self->{header}=escape_text("Project-Id-Version: ".
+                                $self->{options}{'package-name'}." ".
+                                $self->{options}{'package-version'}."\n".
                         ((defined $self->{options}{'msgid-bugs-address'})?
         "Report-Msgid-Bugs-To: ".$self->{options}{'msgid-bugs-address'}."\n":
                                 "").