diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-17 03:10:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-17 03:10:15 +0000 |
| commit | 9c2919391b316ef8c625cc9c45c11a74f92a45b8 (patch) | |
| tree | 0cbfe511601c7219bf6ae3a32400797e1a58aaad /lib | |
| parent | 6596d39b554785758f393f2dda70b41e7e3c4251 (diff) | |
| download | perl-9c2919391b316ef8c625cc9c45c11a74f92a45b8.tar.gz | |
STDERR noise.
p4raw-id: //depot/perl@16644
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Switch.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Switch.pm b/lib/Switch.pm index c1820bff9f..a43ba95848 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) |