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 (file)
--- 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