[perl #40272] subroutine call with & in perlop example

From: yath-perlbug@yath.de (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.5.HEAD-31251-1157313807-430.40272-75-0@perl.org>

p4raw-id: //depot/perl@28781

diff --git a/pod/perlop.pod b/pod/perlop.pod
index 3a8de2a..1993853 100644 (file)
--- a/pod/perlop.pod
+++ b/pod/perlop.pod
@@ -1507,7 +1507,7 @@ Examples:
 
     s/%(.)/$percent{$1}/g;     # change percent escapes; no /e
     s/%(.)/$percent{$1} || $&/ge;      # expr now, so /e
-    s/^=(\w+)/&pod($1)/ge;     # use function call
+    s/^=(\w+)/pod($1)/ge;      # use function call
 
     # expand variables in $_, but dynamics only, using
     # symbolic dereferencing