partly fix perldiag regressions identified by Tom Christiansen

[p5sagit/p5-mst-13.2.git] / pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index 743913d..e83f0b8 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -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));
            }
        }