diff options
| author | Robin Houston <robin@cpan.org> | 2005-12-22 11:54:55 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-22 14:55:52 +0000 |
| commit | 7168684c4ec9fd16f6c71a229097fb6d4325493a (patch) | |
| tree | 819ee83917fa36015ff943a3fe4a482059121bfb /op.c | |
| parent | e26df76ac13ccf3f750bea05eac65b7ffffc7826 (diff) | |
| download | perl-7168684c4ec9fd16f6c71a229097fb6d4325493a.tar.gz | |
eliminate HINT_HH_FOR_EVAL
Message-ID: <20051222115455.GB30301@rpc142.cs.man.ac.uk>
p4raw-id: //depot/perl@26447
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -5299,8 +5299,7 @@ Perl_ck_eval(pTHX_ OP *o) o = newUNOP(OP_ENTEREVAL, 0, newDEFSVOP()); } o->op_targ = (PADOFFSET)PL_hints; - if ((PL_hints & HINT_HH_FOR_EVAL) != 0 && GvHV(PL_hintgv)) - { + if ((PL_hints & HINT_LOCALIZE_HH) != 0 && GvHV(PL_hintgv)) { /* Store a copy of %^H that pp_entereval can pick up */ OP *hhop = newSVOP(OP_CONST, 0, (SV*)newHVhv(GvHV(PL_hintgv))); cUNOPo->op_first->op_sibling = hhop; |