From: Stephen McCamant <smcc@mit.edu>
Date: Thu, 19 Mar 1998 21:28:02 +0000 (-0600)
Subject: Stale SP in pp_substr
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=849ca7eee6afa65773d8d77f064fee661fdef5f4;p=p5sagit%2Fp5-mst-13.2.git

Stale SP in pp_substr

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

diff --git a/pp.c b/pp.c
index 249b909..f2a6141 100644
--- a/pp.c
+++ b/pp.c
@@ -1780,6 +1780,7 @@ PP(pp_substr)
 	len = POPi;
     pos = POPi;
     sv = POPs;
+    PUTBACK;
     tmps = SvPV(sv, curlen);
     if (pos >= arybase) {
 	pos -= arybase;
@@ -1846,6 +1847,7 @@ PP(pp_substr)
 	    LvTARGLEN(TARG) = rem;
 	}
     }
+    SPAGAIN;
     PUSHs(TARG);		/* avoid SvSETMAGIC here */
     RETURN;
 }