diff options
author | Paul Fenwick <pjf@perltraining.com.au> | 2008-03-13 00:19:15 +1100 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-03-12 10:12:53 +0000 |
commit | 02e7afe2eaa86842727fb8a4748929503f679982 (patch) | |
tree | 7f124481bbe9246cdee613caea998323c3a31192 /pod/perlsyn.pod | |
parent | 7c65b8e2206ddeabed0d9e8a826a60dfc601a8a1 (diff) | |
download | perl-02e7afe2eaa86842727fb8a4748929503f679982.tar.gz |
Correct misleading example in perlsyn.pod (given/when/default)
Message-ID: <47D73DA3.8050300@perltraining.com.au>
p4raw-id: //depot/perl@33488
Diffstat (limited to 'pod/perlsyn.pod')
-rw-r--r-- | pod/perlsyn.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod index e1d6464416..44c4f1aff3 100644 --- a/pod/perlsyn.pod +++ b/pod/perlsyn.pod @@ -634,7 +634,7 @@ case to the next: given($foo) { when (/x/) { say '$foo contains an x'; continue } when (/y/) { say '$foo contains a y' } - default { say '$foo contains neither an x nor a y' } + default { say '$foo does not contain a y' } } =head3 Switching in a loop |