From c04ef36ed62ca8fc060e7c6dd9d0c8cb328ce465 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Fri, 28 Sep 2012 15:51:40 +1000
Subject: [PATCH] fix -DPERL_GLOBAL_STRUCT build failure introduced in 97b03d64
 and e10681aa

---
 op.c  | 1 +
 pad.c | 2 ++
 2 files changed, 3 insertions(+)

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)));
-- 
2.7.4