diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-26 16:46:22 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-26 16:46:22 +0000 |
| commit | f32d39a24d025c50d0bd64a7aabe80c983be93ca (patch) | |
| tree | b188a4e61a292ced72faccb4c23f5655b78c20da /scope.c | |
| parent | 7fe44985589724dcec9673580abb16118ba49068 (diff) | |
| download | perl-f32d39a24d025c50d0bd64a7aabe80c983be93ca.tar.gz | |
POPLOOP is actually doing all the work of Perl_save_padsv() already!
p4raw-id: //depot/perl@33078
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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: |