X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperldsc.pod;h=48750dd5de3df17230703014961403e6974fda0c;hb=ce3f0a3cd6f30cb49f01b7811c2891acb7bab15a;hp=aea53ae4420d4c18ae14a6326abea0188dde843b;hpb=f102b8834494e736221c17057fae0f964511ea18;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perldsc.pod b/pod/perldsc.pod
index aea53ae..48750dd 100644
--- a/pod/perldsc.pod
+++ b/pod/perldsc.pod
@@ -698,8 +698,8 @@ many different sorts:
      print $rec->{LOOKUP}{"key"};
      ($first_k, $first_v) = each %{ $rec->{LOOKUP} };
 
-     $answer = &{ $rec->{THATCODE} }($arg);
-     $answer = &{ $rec->{THISCODE} }($arg1, $arg2);
+     $answer = $rec->{THATCODE}->($arg);
+     $answer = $rec->{THISCODE}->($arg1, $arg2);
 
      # careful of extra block braces on fh ref
      print { $rec->{HANDLE} } "a string\n";