Changeset 5862

Timestamp:

07/05/09 22:10:58 (3 years ago)

Author:

ryan52

Message:

remove the .mo file generation

Location:

trunk

Files:

• Padre/privlib/Tools.pm (modified) (1 diff)
• tools/release.pl (modified) (1 diff)

trunk/Padre/privlib/Tools.pm

@@ -12 +12 @@
     # "Default glob() will misinterpret spaces in folder names as seperators, install File::Glob::Windows to fix this behavior!");
     require File::Glob::Windows;
-}
-
-sub convert_po_to_mo {
-    my $path   = shift;
-    
-    my $msgfmt = get_msgfmt();
-    return if not $msgfmt;
-
-    my @mo;
-    if ( $^O eq 'MSWin32' ) {
-        @mo = map {
-            substr( File::Basename::basename($_), 0, -3 )
-        } File::Glob::Windows::glob("$path/share/locale/*.po");
-    } else {
-        @mo = map {
-            substr( File::Basename::basename($_), 0, -3 )
-        } glob "$path/share/locale/*.po";
-    }
-    foreach my $locale ( @mo ) {
-        system(
-            $msgfmt, "-o",
-            "$path/share/locale/$locale.mo",
-            "$path/share/locale/$locale.po",
-        );
-    }
-}
-
-sub get_msgfmt {
-
-    my $msgfmt;
-    if ( $^O =~ /(linux|bsd)/ ) {
-        $msgfmt = scalar File::Which::which('msgfmt');
-    } elsif ( $^O eq 'MSWin32' ) {
-        my $p = "C:/Program Files/GnuWin32/bin/msgfmt.exe";
-        if ( -e $p ) {
-            $msgfmt = $p;
-        } else {
-            $msgfmt = scalar File::Which::which('msgfmt');
-        }
-    }
-    
-    return $msgfmt;
 }
 

trunk/tools/release.pl

@@ -69 +69 @@
 chdir 'src';
 
-my $locale_path;
-if ( -d 'share/locale' ) {
-    $locale_path = Cwd::cwd();
-} else {
-    ( my $path = $name ) =~ s{-}{/}g;
-    if ( -d "lib/$path/share/locale" ) {
-        $locale_path = Cwd::cwd() . "/lib/$path";
-    }
-}
-
-if ($locale_path) {
-    print "locale path: '$locale_path'\n";
-    convert_po_to_mo($locale_path);
-}
-
 #print "Setting VERSION $version\n";
 find( \&check_version, 'lib' );