diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 01:20:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 01:20:39 +0000 |
| commit | 9a7dcd9c47ba9757eae19d3e3965b387f5197198 (patch) | |
| tree | 528507e78c33e9fafd66c09dfe446256af25d29f /pp_hot.c | |
| parent | a67e862a325388c91a8a3eee7f587636c9a77259 (diff) | |
| download | perl-9a7dcd9c47ba9757eae19d3e3965b387f5197198.tar.gz | |
partly fix perldiag regressions identified by Tom Christiansen
p4raw-id: //depot/perl@4709
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -368,7 +368,7 @@ PP(pp_print) SvPV(sv,n_a)); else if (ckWARN(WARN_CLOSED)) Perl_warner(aTHX_ WARN_CLOSED, - "print on closed filehandle %s", SvPV(sv,n_a)); + "print() on closed filehandle %s", SvPV(sv,n_a)); } SETERRNO(EBADF,IoIFP(io)?RMS$_FAC:RMS$_IFI); goto just_say_no; @@ -1255,7 +1255,7 @@ Perl_do_readline(pTHX) SV* sv = sv_newmortal(); gv_efullname3(sv, PL_last_in_gv, Nullch); Perl_warner(aTHX_ WARN_CLOSED, - "Read on closed filehandle %s", + "readline() on closed filehandle %s", SvPV_nolen(sv)); } } |