Stale SP in pp_substr

p4raw-id: //depot/perl@848

1 files changed, 2 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 249b909833..f2a6141eb4 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;
 }