[Rt-commit] r15494 - rt/3.8/trunk/sbin

[clkao at bestpractical.com]

Author: clkao
Date: Tue Aug 26 12:47:02 2008
New Revision: 15494

Modified:
   rt/3.8/trunk/sbin/extract-message-catalog

Log:
extract translatable strings only from: bin sbin lib share etc

Modified: rt/3.8/trunk/sbin/extract-message-catalog
==============================================================================
--- rt/3.8/trunk/sbin/extract-message-catalog	(original)
+++ rt/3.8/trunk/sbin/extract-message-catalog	Tue Aug 26 12:47:02 2008
@@ -64,7 +64,7 @@
 $FILECAT = {};
 
 # extract all strings and stuff them into $FILECAT
-File::Find::find( { wanted => \&extract_strings_from_code, follow => 1 }, '.' );
+File::Find::find( { wanted => \&extract_strings_from_code, follow => 1 }, qw(bin sbin lib share etc) );
 
 # ensure proper escaping and [_1] => %1 transformation
 foreach my $str ( sort keys %{$FILECAT} ) {