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

[clkao at bestpractical.com]

Author: clkao
Date: Sun Sep  7 22:14:10 2008
New Revision: 15787

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

Log:
filter msgid with $ in it.


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	Sun Sep  7 22:14:10 2008
@@ -68,6 +68,9 @@
 # scan html dir for extensions
 File::Find::find( { wanted => \&extract_strings_from_code, follow => 1 }, qw(bin sbin lib share html etc) );
 
+# remove msgid with $ in it.  XXX: perhaps give some warnings here
+$FILECAT = { map { $_ => $FILECAT->{$_} } grep { !m/\$/ } keys %$FILECAT };
+
 # ensure proper escaping and [_1] => %1 transformation
 foreach my $str ( sort keys %{$FILECAT} ) {
     my $entry = $FILECAT->{$str};