In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c04ef36ed62ca8fc060e7c6dd9d0c8cb328ce465?hp=e053a9219acaca53e9108b7a24855de85bbde358>
- Log ----------------------------------------------------------------- commit c04ef36ed62ca8fc060e7c6dd9d0c8cb328ce465 Author: Tony Cook <[email protected]> Date: Fri Sep 28 15:51:40 2012 +1000 fix -DPERL_GLOBAL_STRUCT build failure introduced in 97b03d64 and e10681aa ----------------------------------------------------------------------- Summary of changes: op.c | 1 + pad.c | 2 ++ 2 files changed, 3 insertions(+), 0 deletions(-) diff --git a/op.c b/op.c index 87e2e52..fa48148 100644 --- a/op.c +++ b/op.c @@ -8154,6 +8154,7 @@ OP * Perl_newCVREF(pTHX_ I32 flags, OP *o) { if (o->op_type == OP_PADANY) { + dVAR; o->op_type = OP_PADCV; o->op_ppaddr = PL_ppaddr[OP_PADCV]; return o; diff --git a/pad.c b/pad.c index e25d06d..8823566 100644 --- a/pad.c +++ b/pad.c @@ -2109,6 +2109,8 @@ S_cv_clone_pad(pTHX_ CV *proto, CV *cv, CV *outside) static CV * S_cv_clone(pTHX_ CV *proto, CV *cv, CV *outside) { + dVAR; + assert(!CvUNIQUE(proto)); if (!cv) cv = MUTABLE_CV(newSV_type(SvTYPE(proto))); -- Perl5 Master Repository
