diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-02-15 00:58:00 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-14 21:56:52 +0000 |
| commit | 90133b69afb5dccc00b1483d3839904e458ba347 (patch) | |
| tree | a10c3e20b651b46dfff6c979918995f7e0f074cb /t | |
| parent | cd16c24cb16bb0bd0fa486b8e98c39fcf6ebcf5c (diff) | |
| download | perl-90133b69afb5dccc00b1483d3839904e458ba347.tar.gz | |
Re: bug? no warning from getc BOLLOCKS
Message-ID: <20020214235800.A12901@rafael>
p4raw-id: //depot/perl@14695
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/pp_sys | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys index 57abd6986d..5349f505f7 100644 --- a/t/lib/warnings/pp_sys +++ b/t/lib/warnings/pp_sys @@ -97,7 +97,11 @@ open(F, ">$file") ; my $a = sysread(F, $a,10) ; - lstat on filehandle %s [pp_lstat] + lstat on filehandle %s [pp_lstat] + + getc() on unopened filehandle [pp_getc] + + getc() on closed filehandle [pp_getc] __END__ # pp_sys.c [pp_untie] @@ -409,3 +413,15 @@ close $fh; EXPECT lstat() on filehandle STDIN at - line 3. lstat() on filehandle $fh at - line 5. +######## +# pp_sys.c [pp_getc] +use warnings qw(unopened closed) ; +getc FOO; +close STDIN; +getc STDIN; +no warnings qw(unopened closed) ; +getc FOO; +getc STDIN; +EXPECT +getc() on unopened filehandle FOO at - line 3. +getc() on closed filehandle STDIN at - line 5. |