diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-04-30 00:00:00 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-30 00:00:00 +1200 |
| commit | 6da72b644b845971d5b417f3c6f5590e23084bcd (patch) | |
| tree | 322d1e0b1a154d0b12f1fcc49838fe9a9aa4288c /pod/perldsc.pod | |
| parent | 404b15a1d1b7c56f5774b99fd0d4b6854620182b (diff) | |
| download | perl-6da72b644b845971d5b417f3c6f5590e23084bcd.tar.gz | |
Support C< $coderef->($x,$y) >
Randal Schwartz said:
> Some time in October, 1994, Larry Wall said:
> > : All other references you can follow with ->, what about code refs?
> > Aw, look, I'd really like that feature in, but I think it's a bit
> > too close to the release for that.
> Hey Chip,
> Look, Larry said he'd really like that feature
Larry said that? That change is like two lines, it's in!
Tricked-into-doing-by: Randal Schwartz <merlyn@stonehenge.com>
Diffstat (limited to 'pod/perldsc.pod')
| -rw-r--r-- | pod/perldsc.pod | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/perldsc.pod b/pod/perldsc.pod index aea53ae442..48750dd5de 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"; |