From 27da23d53ccce622bc51822f59df8def79b4df95 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 18 Apr 2005 16:18:30 +0300
Subject: Symbian port of Perl Message-ID:
 <B356D8F434D20B40A8CEDAEC305A1F2453D653@esebe105.NOE.Nokia.com>

p4raw-id: //depot/perl@24271
---
 pad.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'pad.c')

diff --git a/pad.c b/pad.c
index 14649fcaa4..ce6ef3f2b0 100644
--- a/pad.c
+++ b/pad.c
@@ -1119,6 +1119,7 @@ Tidy up a pad after we've finished compiling it:
 void
 Perl_pad_tidy(pTHX_ padtidy_type type)
 {
+    dVAR;
     PADOFFSET ix;
 
     ASSERT_CURPAD_ACTIVE("pad_tidy");
@@ -1368,6 +1369,7 @@ any outer lexicals.
 CV *
 Perl_cv_clone(pTHX_ CV *proto)
 {
+    dVAR;
     I32 ix;
     AV* protopadlist = CvPADLIST(proto);
     const AV* protopad_name = (AV*)*av_fetch(protopadlist, 0, FALSE);
-- 
cgit v1.2.1