From 30757679fb00235c2a9115fdbec76c7460aa1ea1 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Fri, 23 Mar 2007 14:18:17 +0000
Subject: * minor cleanup

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@811 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 bin/devel-tools/extractTranslations.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'bin')

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
-- 
cgit v1.2.3-55-g7522