From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 16 May 1998 17:42:34 +0000 (+0000)
Subject: [win32] fix misplaced SPAGAIN that caused successful s/// to fail to
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f878fbec0f3fac7e674b5c48a29bb093a47749b9;p=p5sagit%2Fp5-mst-13.2.git

[win32] fix misplaced SPAGAIN that caused successful s/// to fail to
return a value on the stack

p4raw-id: //depot/win32/perl@1000
---

diff --git a/pp_hot.c b/pp_hot.c
index 9e9ee3c..8c67b44 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1695,13 +1695,13 @@ PP(pp_subst)
 	sv_free(dstr);
 
 	TAINT_IF(rxtainted & 1);
+	SPAGAIN;
 	PUSHs(sv_2mortal(newSViv((I32)iters)));
 
 	(void)SvPOK_only(TARG);
 	TAINT_IF(rxtainted);
 	SvSETMAGIC(TARG);
 	SvTAINT(TARG);
-	SPAGAIN;
 	LEAVE_SCOPE(oldsave);
 	RETURN;
     }