[Po4a-commits] r2569 - /trunk/po4a

[barbier-guest at users.alioth.debian.org]

Author: barbier-guest
Date: Sun Sep  9 10:24:22 2012
New Revision: 2569

URL: http://svn.debian.org/wsvn/po4a/?sc=1&rev=2569
Log:
po4a: Add --porefs option

Modified:
    trunk/po4a

Modified: trunk/po4a
URL: http://svn.debian.org/wsvn/po4a/trunk/po4a?rev=2569&op=diff
==============================================================================
--- trunk/po4a (original)
+++ trunk/po4a Sun Sep  9 10:24:22 2012
@@ -601,6 +601,7 @@
         "options"         => {"verbose" => 0, "debug" => 0},
         "variables"       => {},
         "partial"         => [],
+        "porefs"          => "full",
         "copyright-holder"=> undef,
         "msgid-bugs-address"=> undef,
         "package-name"    => undef,
@@ -632,6 +633,7 @@
         'version|V'             => \&show_version,
         'option|o=s'            => \@options,
         'variable=s'            => \@variables,
+        'porefs=s'              => \$opts{"porefs"},
         'copyright-holder=s'    => \$opts{"copyright-holder"},
         'msgid-bugs-address=s'  => \$opts{"msgid-bugs-address"},
         'package-name=s'        => \$opts{"package-name"},
@@ -1136,23 +1138,16 @@
 }
 }
 
-my %Po_opts;
-if (defined $po4a_opts{'msgid-bugs-address'}) {
-    $Po_opts{'msgid-bugs-address'} = $po4a_opts{'msgid-bugs-address'};
-}
-if (defined $po4a_opts{'copyright-holder'}) {
-    $Po_opts{'copyright-holder'} = $po4a_opts{'copyright-holder'};
-}
-if (defined $po4a_opts{'package-name'}) {
-    $Po_opts{'package-name'} = $po4a_opts{'package-name'};
-}
-if (defined $po4a_opts{'package-version'}) {
-    $Po_opts{'package-version'} = $po4a_opts{'package-version'};
-}
 if ($update_pot_file) {
     chdir $po4a_opts{"srcdir"}
         if (defined $po4a_opts{"srcdir"});
-    my $potfile=Locale::Po4a::Po->new(\%Po_opts);
+    my %pot_options;
+    foreach (qw(porefs msgid-bugs-address copyright-holder package-name package-version)) {
+        if (defined $po4a_opts{$_}) {
+            $pot_options{$_} = $po4a_opts{$_};
+        }
+    }
+    my $potfile=Locale::Po4a::Po->new(\%pot_options);
     chdir $po4a_opts{"calldir"}
         if (defined $po4a_opts{"srcdir"});
     foreach my $master (sort { return -1 if ($a eq "");