Changeset 5639

Timestamp:

06/26/09 22:39:35 (3 years ago)

Author:

azawawi

Message:

[tools] Find 'locale' directory when it is not found in the current working directory.
[tools] This is mainly to support SpellCheck?, Perl6 and Ecliptic plugins easier localization

File:

• trunk/tools/update_pot_file.pl (modified) (1 diff)

trunk/tools/update_pot_file.pl

@@ -11 +11 @@
 my $cwd       = cwd;
 my $localedir = catdir ( $cwd, 'share', 'locale' );
+unless(-d $localedir) {
+    # Search for the 'locale' directory when 'share/locale'
+    # directory is not found
+    my @files = File::Find::Rule->directory()->
+        name('locale')->relative->in($cwd);
+    if(scalar @files > 0) {
+        $localedir = $files[0];
+    } else {
+        die "locale directory not found.\n";
+    }
+}
+
 my $pot_file  = catfile( $localedir, 'messages.pot' );
 my $pmfiles   = catfile( $cwd, 'files.txt' );