Changeset 5967 for trunk/Locale-Msgfmt

Timestamp:

07/09/09 02:02:16 (3 years ago)

Author:

ryan52

Message:

fix a mess with Module::Install::Msgfmt :P

Location:

trunk/Locale-Msgfmt

Files:

• Changes (modified) (1 diff)
• lib/Locale/Msgfmt.pm (modified) (1 diff)
• lib/Module/Install/Msgfmt.pm (modified) (2 diffs)

trunk/Locale-Msgfmt/Changes

@@ -1 +1 @@
 Revision history for Locale-Msgfmt
+
+0.14    Jul 09, 2009
+        - fix a mess with Module::Install::Msgfmt :P
 
 0.13    Jul 08, 2009

trunk/Locale-Msgfmt/lib/Locale/Msgfmt.pm

@@ -14 +14 @@
 our @EXPORT = qw/msgfmt/;
 
-our $VERSION = '0.13';
+our $VERSION = '0.14';
+
+sub do_msgfmt_for_module_install {
+    my $lib       = shift;
+    my $sharepath = shift;
+    my $fullpath  = File::Spec->catfile( $lib, $sharepath, 'locale' );
+    if ( !-d $fullpath ) {
+        die("$fullpath isn't a directory");
+    }
+    msgfmt( { in => $fullpath, verbose => 1, remove => 1 } );
+}
 
 sub msgfmt {

trunk/Locale-Msgfmt/lib/Module/Install/Msgfmt.pm

@@ -13 +13 @@
     my $self      = shift;
     my $class     = ref($self);
-    my $inc_class = join( '::', @{ $self->_top }{qw(prefix name)} );
+    my $prefix    = $self->_top->{prefix};
+    my $name      = $self->_top->{name};
     my $dir       = @_ ? pop : 'share';
     my $type      = @_ ? shift : 'dist';
     my $module    = @_ ? shift : '';
-    $self->build_requires( 'Locale::Msgfmt' => '0.09' );
+    $self->build_requires( 'Locale::Msgfmt' => '0.14' );
     install_share(@orig);
     my $distname = "";
@@ -30 +31 @@
     $self->postamble(<<"END_MAKEFILE");
 config ::
-\t\$(NOECHO) \$(PERL) "-M$inc_class" -e "do_msgfmt(q(\$(INST_LIB)), q($path))"
+\t\$(NOECHO) \$(PERL) "-MLocale::Msgfmt" -e "Locale::Msgfmt::do_msgfmt_for_module_install(q(\$(INST_LIB)), q($path))"
 
 END_MAKEFILE
 }
-
-# blib/lib/auto/share/dist/Padre/locale/he.po
-sub do_msgfmt {
-    my $self      = shift;
-    my $lib       = shift;
-    my $sharepath = shift;
-    my $fullpath  = File::Spec->catfile( $lib, $sharepath, 'locale' );
-    if ( !-d $fullpath ) {
-        die("$fullpath isn't a directory");
-    }
-    require Locale::Msgfmt;
-    Locale::Msgfmt::msgfmt( { in => $fullpath, verbose => 1, remove => 1 } );
-}