From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 13 Mar 2007 11:02:03 +0000 (+0000)
Subject: Need a SPAGAIN here because the stack pointer might have
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5e17dd7d8c20ce9a3e0a4717b6163a71908e6143;p=p5sagit%2Fp5-mst-13.2.git

Need a SPAGAIN here because the stack pointer might have
moved when evaluating a tied hash in scalar context.

p4raw-id: //depot/perl@30560
---

diff --git a/pp_hot.c b/pp_hot.c
index ca9e5a6..da4148f 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -900,6 +900,7 @@ PP(pp_rv2av)
     else if (gimme == G_SCALAR) {
 	dTARGET;
     TARG = Perl_hv_scalar(aTHX_ (HV*)sv);
+	SPAGAIN;
 	SETTARG;
     }
     }