[PATCH 5.004_64] anydbm.t

[p5sagit/p5-mst-13.2.git] / pod / perlsyn.pod

diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod
index 205be7d..f791370 100644 (file)
--- a/pod/perlsyn.pod
+++ b/pod/perlsyn.pod
@@ -409,6 +409,18 @@ or
        $nothing = 1;
     }
 
+or, using experimental C<EVAL blocks> of regular expressions
+(see L<perlre/"(?{ code })">),
+
+       / ^abc (?{ $abc = 1 })
+         |
+         ^def (?{  $def = 1 })
+        |
+         ^xyz (?{ $xyz = 1 })
+        |
+         (?{ $nothing = 1 })
+       /x;
+
 or even, horrors,
 
     if (/^abc/)