diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 04:08:09 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 04:08:09 +0000 |
| commit | 113b7d9de713e57a510f822be9651ee29df72538 (patch) | |
| tree | 2dc928b0b86c4a325c0ac408fdcc7751429d9819 /pp_hot.c | |
| parent | f83ee824cada302b23f7337a82f3b9d44bde7629 (diff) | |
| parent | de0c8cb881313fb53ccecc309c3a182787a8a527 (diff) | |
| download | perl-113b7d9de713e57a510f822be9651ee29df72538.tar.gz | |
integrate mainline contents
p4raw-id: //depot/utfperl@4725
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -367,7 +367,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; @@ -1254,7 +1254,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)); } } |