From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 17 May 2002 03:10:15 +0000 (+0000)
Subject: STDERR noise.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c2919391b316ef8c625cc9c45c11a74f92a45b8;p=p5sagit%2Fp5-mst-13.2.git

STDERR noise.

p4raw-id: //depot/perl@16644
---

diff --git a/lib/Switch.pm b/lib/Switch.pm
index c1820bf..a43ba95 100644
--- 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)