add note about symbolic filehandles (from Johan Vromans)

p4raw-id: //depot/perl@5843

diff --git a/lib/strict.pm b/lib/strict.pm
index f9d60af..042227f 100644 (file)
--- a/lib/strict.pm
+++ b/lib/strict.pm
@@ -34,6 +34,8 @@ use symbolic references (see L<perlref>).
     print $$ref;       # ok
     $ref = "foo";
     print $$ref;       # runtime error; normally ok
+    $file = "STDOUT";
+    print $file "Hi!"; # error; note: no comma after $file
 
 =item C<strict vars>
 

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 2c96d1d..5396fd1 100644 (file)
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -2587,7 +2587,10 @@ conversion assumes base 10.)
 
 Opens the file whose filename is given by EXPR, and associates it with
 FILEHANDLE.  If FILEHANDLE is an expression, its value is used as the
-name of the real filehandle wanted.  If EXPR is omitted, the scalar
+name of the real filehandle wanted.  (This is considered a symbolic
+reference, so C<use strict 'refs'> should I<not> be in effect.)
+
+If EXPR is omitted, the scalar
 variable of the same name as the FILEHANDLE contains the filename.
 (Note that lexical variables--those declared with C<my>--will not work
 for this purpose; so if you're using C<my>, specify EXPR in your call