return *FH pod patch

p5p-msgid: <9702061507.AA04474@gateway.grumman.com>

diff --git a/pod/perldata.pod b/pod/perldata.pod
index 407a252..1878f4a 100644 (file)
--- a/pod/perldata.pod
+++ b/pod/perldata.pod
@@ -539,7 +539,7 @@ This is also a way to create a local filehandle.  For example:
        my $path = shift;
        local *FH;  # not my!
        open (FH, $path) || return undef;
-       return \*FH;
+       return *FH;
     }
     $fh = newopen('/etc/passwd');
 

diff --git a/pod/perlsub.pod b/pod/perlsub.pod
index c83f2da..347d2f8 100644 (file)
--- 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