[Rt-commit] r4936 - Locale-Maketext-Lexicon/lib/Locale/Maketext

[autrijus at bestpractical.com]

Author: autrijus
Date: Sun Apr  2 11:07:16 2006
New Revision: 4936

Modified:
   Locale-Maketext-Lexicon/lib/Locale/Maketext/Lexicon.pm

Log:
* turn off debugging and avoid warnings.

Modified: Locale-Maketext-Lexicon/lib/Locale/Maketext/Lexicon.pm
==============================================================================
--- Locale-Maketext-Lexicon/lib/Locale/Maketext/Lexicon.pm	(original)
+++ Locale-Maketext-Lexicon/lib/Locale/Maketext/Lexicon.pm	Sun Apr  2 11:07:16 2006
@@ -323,6 +323,7 @@
             if (my $style = option('style')) {
                 my $cref = $class->can(lc("_style_$style"))->( $class, $export->can('maketext') )
                   or die "Unknown style: $style";
+                local $SIG{__WARN__} = sub { 1 };
                 *{"$export\::maketext"} = $cref;
             }
         }
@@ -335,7 +336,6 @@
     sub {
         my $lh  = shift;
         my $str = shift;
-        print STDERR "$str\n";
         $str =~ s/[\~\[\]]/~$&/g;
         $str =~ s{(^|[^%\\])%([A-Za-z#*]\w*)\(([^\)]*)\)}
                 {"$1\[$2,"._unescape($3)."]"}eg;