diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-02-02 23:24:54 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 15:30:24 +0000 |
| commit | 5d3e98def4ec5753a5f78c106401b1351d752266 (patch) | |
| tree | 1c6825ae8b85f9490774a26cb29d06bda548a789 /t/lib/warnings/pp_sys | |
| parent | 1d662fb62e71ab3e37603febfa8212dd1e7e7f7e (diff) | |
| download | perl-5d3e98def4ec5753a5f78c106401b1351d752266.tar.gz | |
lstat FH and -l FH warnings
Message-ID: <20020202222454.A11608@rafael>
p4raw-id: //depot/perl@14530
Diffstat (limited to 't/lib/warnings/pp_sys')
| -rw-r--r-- | t/lib/warnings/pp_sys | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys index 4b9c8b1a96..57abd6986d 100644 --- a/t/lib/warnings/pp_sys +++ b/t/lib/warnings/pp_sys @@ -96,8 +96,8 @@ my $file = "./xcv" ; open(F, ">$file") ; my $a = sysread(F, $a,10) ; - - + + lstat on filehandle %s [pp_lstat] __END__ # pp_sys.c [pp_untie] @@ -396,3 +396,16 @@ $a = "BLERG";binmode($a); EXPECT binmode() on unopened filehandle BLARG at - line 3. binmode() on unopened filehandle at - line 4. +######## +# pp_sys.c [pp_lstat] +use warnings 'io'; +lstat STDIN; +open my $fh, $0 or die "# $!"; +lstat $fh; +no warnings 'io'; +lstat STDIN; +lstat $fh; +close $fh; +EXPECT +lstat() on filehandle STDIN at - line 3. +lstat() on filehandle $fh at - line 5. |