diff options
author | Oliver Tappe | 2007-03-23 15:18:17 +0100 |
---|---|---|
committer | Oliver Tappe | 2007-03-23 15:18:17 +0100 |
commit | 30757679fb00235c2a9115fdbec76c7460aa1ea1 (patch) | |
tree | f3286fa36ef8094eacec2fa07c7247a6db119cda /bin | |
parent | * removed this script as it is no longer needed (now that we have slxconfig) (diff) | |
download | core-30757679fb00235c2a9115fdbec76c7460aa1ea1.tar.gz core-30757679fb00235c2a9115fdbec76c7460aa1ea1.tar.xz core-30757679fb00235c2a9115fdbec76c7460aa1ea1.zip |
* minor cleanup
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@811 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/devel-tools/extractTranslations.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/bin/devel-tools/extractTranslations.pl b/bin/devel-tools/extractTranslations.pl index 88ac4ede..d156eb65 100755 --- a/bin/devel-tools/extractTranslations.pl +++ b/bin/devel-tools/extractTranslations.pl @@ -20,6 +20,7 @@ extractTranslations.pl any translations already existing in these modules will be preserved. ]; +use Cwd; use File::Find; use Getopt::Long; use Pod::Usage; @@ -53,6 +54,7 @@ use FindBin; my $path = "$FindBin::RealBin/../.."; chdir($path) or die "can't chdir to repository-root <$path> ($!)"; +print "searching in ".cwd()."\n"; find(\&ExtractTrStrings, '.'); @@ -79,14 +81,14 @@ sub ExtractTrStrings return if -d; open(F, "< $_") or die "could not open file $_ for reading!"; - $/ = undef; + local $/ = undef; my $text = <F>; close(F); if ($File::Find::name !~ m[\.pm$] && $text !~ m[^#!.+/perl]im) { # ignore anything other than perl-modules and -scripts return; } - print "$File::Find::name...\n" if $verbose; + print "$File::Find::name...\n"; $fileCount++; while($text =~ m[_tr\s*\(\s*(.+?)\s*\);]gos) { # NOTE: that cheesy regex relies on the string ');' not being used |