diff options
| author | Tassilo von Parseval <tassilo.parseval@post.rwth-aachen.de> | 2004-02-17 18:32:16 +0100 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-17 18:01:52 +0000 |
| commit | 4ce457a6488a69b8fafc38a9468220b68d66eddb (patch) | |
| tree | 335af44a7c16cc7cba5231a0f4c263e2b31897f2 /pp_hot.c | |
| parent | 761ee4e8f04fab46ae6718633150f12611f85867 (diff) | |
| download | perl-4ce457a6488a69b8fafc38a9468220b68d66eddb.tar.gz | |
Re: [PATCH] GLOB to LVALUE assignment fix
Message-Id: <20040217163216.GA6805@ethan>
Make PVLV a superset of PVGV, so that $lvalue = *FOO works
p4raw-id: //depot/perl@22315
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -295,7 +295,7 @@ PP(pp_eq) PP(pp_preinc) { dSP; - if (SvTYPE(TOPs) > SVt_PVLV) + if (SvTYPE(TOPs) == SVt_PVGV || SvTYPE(TOPs) > SVt_PVLV) DIE(aTHX_ PL_no_modify); if (!SvREADONLY(TOPs) && SvIOK_notUV(TOPs) && !SvNOK(TOPs) && !SvPOK(TOPs) && SvIVX(TOPs) != IV_MAX) @@ -1980,8 +1980,8 @@ PP(pp_subst) !is_cow && #endif (SvREADONLY(TARG) - || (SvTYPE(TARG) > SVt_PVLV - && !(SvTYPE(TARG) == SVt_PVGV && SvFAKE(TARG))))) + || ( (SvTYPE(TARG) == SVt_PVGV || SvTYPE(TARG) > SVt_PVLV) + && !(SvTYPE(TARG) == SVt_PVGV && SvFAKE(TARG))))) DIE(aTHX_ PL_no_modify); PUTBACK; |