From: Jan Dubois <jand@activestate.com>
Date: Tue, 20 Nov 2007 15:39:50 +0000 (-0800)
Subject: Improve example code
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f849b90f095acfc37a039067f818e0076e99a576;p=p5sagit%2Fp5-mst-13.2.git

Improve example code
From: "Jan Dubois" <jand@activestate.com>
Message-ID: <076601c82bce$a4fcfe00$eef6fa00$@com>

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

diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod
index 177ff4c..8468723 100644
--- a/pod/perlsyn.pod
+++ b/pod/perlsyn.pod
@@ -607,7 +607,7 @@ is applied recursively to the first argument.
 These rules look complicated, but usually they will do what
 you want. For example you could write:
 
-    when (/^\d$/ && $_ < 75) { ... }
+    when (/^\d+$/ && $_ < 75) { ... }
 
 Another useful shortcut is that, if you use a literal array
 or hash as the argument to C<when>, it is turned into a