use warnings;
use base 'Locale::Maketext';
-use Locale::Maketext::Lexicon {
- '*' => [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'],
- _auto => 1,
- _style => 'gettext',
-};
+use Locale::Maketext::Lexicon;
use base 'Exporter';
-our @EXPORT = qw( _g N_ );
+our @EXPORT = qw( N_ );
+
+sub load {
+ my ($podir) = @_;
+
+ Locale::Maketext::Lexicon->import( {
+ 'en' => [Gettext => "$podir/pdo.pot",
+ Gettext => "$podir/templates.pot",
+ Gettext => "$podir/langs.pot",
+ Gettext => "$podir/sections.pot",
+ Gettext => "$podir/debtags.pot"],
+ '*' => [Gettext => "$podir/pdo.*.po",
+ Gettext => "$podir/templates.*.po",
+ Gettext => "$podir/langs.*.po",
+ Gettext => "$podir/sections.*.po",
+ Gettext => "$podir/debtags.*.po"],
+ _auto => 1,
+ _style => 'gettext',
+ } );
+}
-sub _g { return $_[0]; }
sub N_ { return $_[0]; }
sub g {