Translation support for remaining scripts

[deb/packages.git] / lib / Packages / I18N / Locale.pm

diff --git a/lib/Packages/I18N/Locale.pm b/lib/Packages/I18N/Locale.pm
index 94fd8990fdf8013f981e67b1b8ba437fec9e4bc2..3b4ecc606d7c3dea3eaf47de4fa58258ddbe8707 100644 (file)
--- a/lib/Packages/I18N/Locale.pm
+++ b/lib/Packages/I18N/Locale.pm
@@ -5,24 +5,30 @@ use warnings;
 
 use base 'Locale::Maketext';
 use Locale::Maketext::Lexicon {
+    'en' => [Gettext => '/home/djpig/debian/www.d.o/packages/po/pdo.pot',
+            Gettext => '/home/djpig/debian/www.d.o/packages/po/templates.pot',
+            Gettext => '/home/djpig/debian/www.d.o/packages/po/langs.pot',
+            Gettext => '/home/djpig/debian/www.d.o/packages/po/sections.pot',
+            Gettext => '/home/djpig/debian/www.d.o/packages/po/debtags.pot'],
     '*' => [Gettext => '/home/djpig/debian/www.d.o/packages/po/pdo.*.po',
            Gettext => '/home/djpig/debian/www.d.o/packages/po/templates.*.po',
-           Gettext => '/home/djpig/debian/www.d.o/packages/po/langs.*.po'],
+           Gettext => '/home/djpig/debian/www.d.o/packages/po/langs.*.po',
+           Gettext => '/home/djpig/debian/www.d.o/packages/po/sections.*.po',
+           Gettext => '/home/djpig/debian/www.d.o/packages/po/debtags.*.po'],
     _auto   => 1,
     _style  => 'gettext',
 };
 
 use base 'Exporter';
 
-our @EXPORT = qw( _g N_ );
+our @EXPORT = qw( N_ );
 
-sub _g { return $_[0]; }
 sub N_ { return $_[0]; }
 
 sub g {
     my ($self, $format, @args) = @_;
     my $result = $self->maketext($format, @args);
-    return sprintf($result, @args) if $result =~ /%[su]/;
+    return sprintf($result, @args) if $result =~ /%([su]|[.\d]*f)/;
     return $result;
 }