diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-09-25 23:58:12 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-02 13:18:01 +0000 |
| commit | 97828cef4d4cd22b548b8ec430d2e0e28ea8ae8c (patch) | |
| tree | 2817e7bfaa6276aeb08a1f299c768a305f24d9fd /t/lib | |
| parent | dd2155a49b710f23bc6d72169e5b1d71d8b3aa03 (diff) | |
| download | perl-97828cef4d4cd22b548b8ec430d2e0e28ea8ae8c.tar.gz | |
Re: perlio bug?
Message-Id: <20020925215812.3b7adb0d.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@17954
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/warnings/doio | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/t/lib/warnings/doio b/t/lib/warnings/doio index bb09aa8552..15d4c5e957 100644 --- a/t/lib/warnings/doio +++ b/t/lib/warnings/doio @@ -275,3 +275,42 @@ no warnings 'io'; open FOO, '>', \$x; EXPECT Can't open a reference at - line 14. +######## +# doio.c [Perl_do_openn] +use Config; +BEGIN { + if (!$Config{useperlio}) { + print <<EOM; +SKIPPED +# warns only with perlio +EOM + exit; + } +} +use warnings 'io' ; +close STDOUT; +open FH1, "harness"; close FH1; +no warnings 'io' ; +open FH2, "harness"; close FH2; +EXPECT +Filehandle STDOUT reopened as FH1 only for input at - line 14. +######## +# doio.c [Perl_do_openn] +use Config; +BEGIN { + if (!$Config{useperlio}) { + print <<EOM; +SKIPPED +# warns only with perlio +EOM + exit; + } +} +use warnings 'io' ; +close STDIN; +open my $fh1, ">doiowarn.tmp"; close $fh1; +no warnings 'io' ; +open my $fh2, ">doiowarn.tmp"; close $fh2; +unlink "doiowarn.tmp"; +EXPECT +Filehandle STDIN reopened as $fh1 only for output at - line 14. |