diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-02-20 11:55:23 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-05-02 21:17:59 +0100 |
| commit | e0fa7e2be05466f132eb653ebe7b2f9664ffcb3b (patch) | |
| tree | d6691eed6caaefb9e9eed1978bc7f7e401cd5b76 /scope.c | |
| parent | 4f0556e9541e0e65f0abc5f4f6caf1f16ddf2dcd (diff) | |
| download | perl-e0fa7e2be05466f132eb653ebe7b2f9664ffcb3b.tar.gz | |
For SAVEt_REGCONTEXT, store the number of save stack entries used with the type.
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -931,6 +931,9 @@ Perl_leave_scope(pTHX_ I32 base) (*SSPOPDXPTR)(aTHX_ ptr); break; case SAVEt_REGCONTEXT: + /* regexp must have croaked */ + PL_savestack_ix -= uv >> SAVE_TIGHT_SHIFT; + break; case SAVEt_ALLOC: i = SSPOPINT; PL_savestack_ix -= i; /* regexp must have croaked */ |