From bc37a18f04c6e2feea5bb9e2e546e59c37c7c04a Mon Sep 17 00:00:00 2001 From: "Ronald F. Guilmette" Date: Mon, 24 Jul 2000 08:47:00 -0700 Subject: [ID 20000724.004] Perl interpreter segfault when using built-in flock Message-Id: <200007242247.PAA52177@monkeys.com> p4raw-id: //depot/perl@6527 --- pp_hot.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index fde52c5714..9bfe44ad8a 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -417,7 +417,7 @@ PP(pp_print) SvPV(sv,n_a)); } else if (ckWARN(WARN_CLOSED)) - report_closed_fh(gv, io, "print", "filehandle"); + report_evil_fh(gv, io, PL_op->op_type); } SETERRNO(EBADF,IoIFP(io)?RMS$_FAC:RMS$_IFI); goto just_say_no; @@ -1394,7 +1394,7 @@ Perl_do_readline(pTHX) "glob failed (can't start child: %s)", Strerror(errno)); else - report_closed_fh(PL_last_in_gv, io, "readline", "filehandle"); + report_evil_fh(PL_last_in_gv, io, PL_op->op_type); } if (gimme == G_SCALAR) { (void)SvOK_off(TARG); -- cgit v1.2.1