diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-05 23:02:39 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-05 23:02:39 +0000 |
| commit | eadce870788b7d714b94b6f31ade209530f13e95 (patch) | |
| tree | 4871be37d92e76587b3bcc09b063eef8754f112e /pp_sys.c | |
| parent | ce3e5b80724e7725765c5559e5f4b0058876fc19 (diff) | |
| parent | f2b0cce78405182ac37776a9f6651ef31c276b8f (diff) | |
| download | perl-eadce870788b7d714b94b6f31ade209530f13e95.tar.gz | |
Integrate mainline.
p4raw-id: //depot/perlio@8003
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -1059,7 +1059,6 @@ PP(pp_sselect) void Perl_setdefout(pTHX_ GV *gv) { - dTHR; if (gv) (void)SvREFCNT_inc(gv); if (PL_defoutgv) @@ -1142,7 +1141,6 @@ PP(pp_read) STATIC OP * S_doform(pTHX_ CV *cv, GV *gv, OP *retop) { - dTHR; register PERL_CONTEXT *cx; I32 gimme = GIMME_V; AV* padlist = CvPADLIST(cv); @@ -1378,7 +1376,6 @@ PP(pp_prtf) sv = NEWSV(0,0); if (!(io = GvIO(gv))) { - dTHR; if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) report_evil_fh(gv, io, PL_op->op_type); SETERRNO(EBADF,RMS$_IFI); @@ -2562,7 +2559,6 @@ PP(pp_stat) ? PerlLIO_fstat(PerlIO_fileno(IoIFP(GvIOn(gv))), &PL_statcache) : -1); } if (PL_laststatval < 0) { - dTHR; if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) report_evil_fh(gv, GvIO(gv), PL_op->op_type); max = 0; @@ -3117,7 +3113,6 @@ PP(pp_fttext) len = 512; } else { - dTHR; if (ckWARN2(WARN_UNOPENED,WARN_CLOSED)) { gv = cGVOP_gv; report_evil_fh(gv, GvIO(gv), PL_op->op_type); |