diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-26 19:28:41 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-29 06:01:35 +0000 |
| commit | b3ac6de7f0c7a63b73f1cf3ea9e371470f7d1cb0 (patch) | |
| tree | 564cec3756b2fdc36f8885a6017a9b0eed22dca1 /pp_ctl.c | |
| parent | dde527fc6256d3b4a78a8a6187a9b8048cc76da5 (diff) | |
| download | perl-b3ac6de7f0c7a63b73f1cf3ea9e371470f7d1cb0.tar.gz | |
added patch for overloading constants, made PERL_OBJECT-aware
Message-Id: <199806270328.XAA21088@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1259
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2224,7 +2224,7 @@ sv_compile_2op(SV *sv, OP** startop, char *code, AV** avp) introduced within evals. See force_ident(). GSAR 96-10-12 */ safestr = savepv(tmpbuf); SAVEDELETE(defstash, safestr, strlen(safestr)); - SAVEI32(hints); + SAVEHINTS(); #ifdef OP_IN_REGISTER opsave = op; #else @@ -2552,7 +2552,7 @@ PP(pp_require) rsfp = tryrsfp; name = savepv(name); SAVEFREEPV(name); - SAVEI32(hints); + SAVEHINTS(); hints = 0; /* switch to eval mode */ @@ -2612,7 +2612,7 @@ PP(pp_entereval) introduced within evals. See force_ident(). GSAR 96-10-12 */ safestr = savepv(tmpbuf); SAVEDELETE(defstash, safestr, strlen(safestr)); - SAVEI32(hints); + SAVEHINTS(); hints = op->op_targ; push_return(op->op_next); |