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 /doio.c | |
| 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 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -812,7 +812,7 @@ Perl_do_close(pTHX_ GV *gv, bool not_implicit) dTHR; if (ckWARN(WARN_UNOPENED)) Perl_warner(aTHX_ WARN_UNOPENED, - "Close on unopened file <%s>",GvENAME(gv)); + "Close on unopened file %s",GvENAME(gv)); SETERRNO(EBADF,SS$_IVCHAN); } return FALSE; @@ -1196,7 +1196,7 @@ Perl_my_stat(pTHX) if (tmpgv == PL_defgv) return PL_laststatval; if (ckWARN(WARN_UNOPENED)) - Perl_warner(aTHX_ WARN_UNOPENED, "Stat on unopened file <%s>", + Perl_warner(aTHX_ WARN_UNOPENED, "Stat on unopened file %s", GvENAME(tmpgv)); PL_statgv = Nullgv; sv_setpv(PL_statname,""); |