diff options
| author | Ronald F. Guilmette <rfg@monkeys.com> | 2000-07-24 08:47:00 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-05 03:22:05 +0000 |
| commit | bc37a18f04c6e2feea5bb9e2e546e59c37c7c04a (patch) | |
| tree | 8c9be161931cdb063ceeadaad036116c9878a166 /pp_hot.c | |
| parent | 10b4ebb56b5e3d07893570debc8adbb08d0ff62d (diff) | |
| download | perl-bc37a18f04c6e2feea5bb9e2e546e59c37c7c04a.tar.gz | |
[ID 20000724.004] Perl interpreter segfault when using built-in flock
Message-Id: <200007242247.PAA52177@monkeys.com>
p4raw-id: //depot/perl@6527
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); |