diff options
| author | John L. Allen <allen@gateway.grumman.com> | 1997-02-06 10:07:28 -0500 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-11 07:29:00 +1200 |
| commit | e05a3a1ec1221028251219a1d04f79135252823c (patch) | |
| tree | d84ad713cc749bade2a5cdff18b131f801480dcd /pod/perlsub.pod | |
| parent | 6ea29bdc535e6af3948b9817129103dce3d27bba (diff) | |
| download | perl-e05a3a1ec1221028251219a1d04f79135252823c.tar.gz | |
return *FH pod patch
p5p-msgid: <9702061507.AA04474@gateway.grumman.com>
Diffstat (limited to 'pod/perlsub.pod')
| -rw-r--r-- | pod/perlsub.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlsub.pod b/pod/perlsub.pod index c83f2da336..347d2f8c92 100644 --- a/pod/perlsub.pod +++ b/pod/perlsub.pod @@ -608,7 +608,7 @@ If you're planning on generating new filehandles, you could do this: sub openit { my $name = shift; local *FH; - return open (FH, $path) ? \*FH : undef; + return open (FH, $path) ? *FH : undef; } Although that will actually produce a small memory leak. See the bottom |