diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-02 13:27:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-02 13:27:38 +0000 |
| commit | 624590503086714d933ceb5a7947b31f6a66beb9 (patch) | |
| tree | 728e5bfdf9bc16cc89cd2153ea62eea69efcb15b /t | |
| parent | 436933950535d3942db23a87c1a6344f566a9af4 (diff) | |
| download | perl-624590503086714d933ceb5a7947b31f6a66beb9.tar.gz | |
The name of a filehandle does not have <these>.
p4raw-id: //depot/perl@6490
Diffstat (limited to 't')
| -rw-r--r-- | t/pragma/warn/doio | 6 | ||||
| -rw-r--r-- | t/pragma/warn/pp_sys | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/t/pragma/warn/doio b/t/pragma/warn/doio index 8fda1e9246..813f149fb5 100644 --- a/t/pragma/warn/doio +++ b/t/pragma/warn/doio @@ -12,7 +12,7 @@ warn(warn_nl, "open"); [Perl_do_open9] open(F, "true\ncd") - Close on unopened file <%s> [Perl_do_close] <<TODO + Close on unopened file %s [Perl_do_close] <<TODO $a = "fred";close("$a") tell() on unopened file [Perl_do_tell] @@ -96,7 +96,7 @@ close "fred" ; no warnings 'unopened' ; close "joe" ; EXPECT -Close on unopened file <fred> at - line 3. +Close on unopened file fred at - line 3. ######## # doio.c [Perl_do_tell Perl_do_seek Perl_do_sysseek Perl_my_stat] use warnings 'io' ; @@ -115,7 +115,7 @@ EXPECT tell() on unopened file at - line 4. seek() on unopened file at - line 5. sysseek() on unopened file at - line 6. -Stat on unopened file <STDIN> at - line 7. +Stat on unopened file STDIN at - line 7. ######## # doio.c [Perl_do_print] use warnings 'uninitialized' ; diff --git a/t/pragma/warn/pp_sys b/t/pragma/warn/pp_sys index 3b9b2e0fdb..ad5982ab81 100644 --- a/t/pragma/warn/pp_sys +++ b/t/pragma/warn/pp_sys @@ -331,7 +331,7 @@ close STDIN ; no warnings 'unopened' ; -T STDIN ; EXPECT -Test on unopened file <STDIN> at - line 4. +Test on unopened file STDIN at - line 4. ######## # pp_sys.c [pp_fttext] use warnings 'newline' ; |