STDERR noise.

p4raw-id: //depot/perl@16644

diff --git a/lib/Switch.pm b/lib/Switch.pm
index c1820bf..a43ba95 100644 (file)
--- a/lib/Switch.pm
+++ b/lib/Switch.pm
@@ -121,7 +121,7 @@ sub filter_blocks
                {
                        my $keyword = $3;
                        my $arg = $4;
-                       print  STDERR "[$arg]\n";
+                       # print  STDERR "[$arg]\n";
                        $text .= $1.$2.'S_W_I_T_C_H: while (1) ';
                        unless ($arg) {
                                @pos = Text::Balanced::_match_codeblock(\$source,qr/\s*/,qr/\(/,qr/\)/,qr/[[{(<]/,qr/[]})>]/,undef)