diff options
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 |