From: Paul Fenwick <pjf@perltraining.com.au>
Date: Wed, 12 Mar 2008 13:19:15 +0000 (+1100)
Subject: Correct misleading example in perlsyn.pod (given/when/default)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02e7afe2eaa86842727fb8a4748929503f679982;p=p5sagit%2Fp5-mst-13.2.git

Correct misleading example in perlsyn.pod (given/when/default)
Message-ID: <47D73DA3.8050300@perltraining.com.au>

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

diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod
index e1d6464..44c4f1a 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