assorted help for older VMS systems

[p5sagit/p5-mst-13.2.git] / lib / Switch.pm

diff --git a/lib/Switch.pm b/lib/Switch.pm
index c1820bf..c76ac8e 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) 
@@ -742,7 +742,7 @@ behaviour of the third case.
 
 Perl 6 will provide a built-in switch statement with essentially the
 same semantics as those offered by Switch.pm, but with a different
-pair of keywords. In Perl 6 C<switch> with be spelled C<given>, and
+pair of keywords. In Perl 6 C<switch> will be spelled C<given>, and
 C<case> will be pronounced C<when>. In addition, the C<when> statement
 will not require switch or case values to be parenthesized.