From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 26 Jan 2008 16:46:22 +0000 (+0000)
Subject: POPLOOP is actually doing all the work of Perl_save_padsv() already!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f32d39a24d025c50d0bd64a7aabe80c983be93ca;p=p5sagit%2Fp5-mst-13.2.git

POPLOOP is actually doing all the work of Perl_save_padsv() already!

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

diff --git a/scope.c b/scope.c
index c6a3fd5..616247e 100644
--- a/scope.c
+++ b/scope.c
@@ -934,7 +934,7 @@ Perl_leave_scope(pTHX_ I32 base)
 		const PADOFFSET off = (PADOFFSET)SSPOPLONG;
 		ptr = SSPOPPTR;
 		if (ptr)
-		    AvARRAY((PAD*)ptr)[off] = (SV*)SSPOPPTR;
+		    assert(AvARRAY((PAD*)ptr)[off] == (SV*)SSPOPPTR);
 	    }
 	    break;
 	case SAVEt_SAVESWITCHSTACK: