This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
STDERR noise.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 17 May 2002 03:10:15 +0000 (03:10 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 17 May 2002 03:10:15 +0000 (03:10 +0000)
p4raw-id: //depot/perl@16644

lib/Switch.pm

index c1820bf..a43ba95 100644 (file)
@@ -121,7 +121,7 @@ sub filter_blocks
                {
                        my $keyword = $3;
                        my $arg = $4;
                {
                        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) 
                        $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)