Salvage parts of #19418 (the ext/PerlIO/t/open.t

still is there).

p4raw-id: //depot/perl@19672

diff --git a/MANIFEST b/MANIFEST
index eb1e628..76dbe58 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -564,6 +564,7 @@ ext/PerlIO/scalar/scalar.xs PerlIO layer for scalars
 ext/PerlIO/t/encoding.t                See if PerlIO encoding conversion works
 ext/PerlIO/t/fail.t            See if bad layers fail
 ext/PerlIO/t/fallback.t                See if PerlIO fallbacks work
+ext/PerlIO/t/open.t            See if PerlIO certain special opens work
 ext/PerlIO/t/scalar.t          See if PerlIO::scalar works
 ext/PerlIO/t/via.t             See if PerlIO::via works
 ext/PerlIO/via/Makefile.PL     PerlIO layer for layers in perl

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 3ad23c5..8be8c8c 100644 (file)
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -2860,7 +2860,10 @@ argument being C<undef>:
 
     open(TMP, "+>", undef) or die ...
 
-opens a filehandle to an anonymous temporary file.
+opens a filehandle to an anonymous temporary file.  Also using "+<"
+works for symmetry, but you really should consider writing something
+to the temporary file first.  You will need to seek() to do the
+reading.
 
 File handles can be opened to "in memory" files held in Perl scalars via: