diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-03-05 15:35:57 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-05 13:40:31 +0000 |
| commit | 97e322ff169812aac5db3010a41269f2b1e7fae7 (patch) | |
| tree | 46dc3b4a31975de97bfa3fa166141ef4ec8aa877 /t/lib | |
| parent | dc531b29f28a33eb449c254760d3e2fbf885a3b1 (diff) | |
| download | perl-97e322ff169812aac5db3010a41269f2b1e7fae7.tar.gz | |
Re: [ID 20020227.024] unexpected warning getc() on unopened filehandle STDIN
Message-ID: <20020305143557.C695@rafael>
p4raw-id: //depot/perl@15044
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/warnings/pp_sys | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys index 5349f505f7..8dc0bf90a4 100644 --- a/t/lib/warnings/pp_sys +++ b/t/lib/warnings/pp_sys @@ -419,9 +419,19 @@ use warnings qw(unopened closed) ; getc FOO; close STDIN; getc STDIN; +# Create an empty file +$file = 'getcwarn.tmp'; +open FH1, ">$file" or die "# $!"; close FH1; +open FH2, $file or die "# $!"; +getc FH2; # Should not warn at EOF +close FH2; +getc FH2; # Warns, now +unlink $file; no warnings qw(unopened closed) ; getc FOO; getc STDIN; +getc FH2; EXPECT getc() on unopened filehandle FOO at - line 3. getc() on closed filehandle STDIN at - line 5. +getc() on closed filehandle FH2 at - line 12. |