From: Vincent Pit <vince@profvince.com>
Date: Tue, 29 Dec 2009 17:04:53 +0000 (+0100)
Subject: Also call FREETMPS/LEAVE when skipping a typed declaration
X-Git-Tag: v0.09~8
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=commitdiff_plain;h=e0828f7e87013a889e46eaaa7c896a34e35b941e

Also call FREETMPS/LEAVE when skipping a typed declaration

This fixes unbalanced scopes that were uncovered by the new named scope
feature in blead
---

diff --git a/Types.xs b/Types.xs
index 7f65383..8ff68ad 100644
--- a/Types.xs
+++ b/Types.xs
@@ -587,6 +587,8 @@ STATIC OP *lt_ck_padany(pTHX_ OP *o) {
    croak(__PACKAGE__ " mangler should return zero, one or two scalars, but got %d", items);
   if (items == 0) {
    SvREFCNT_dec(orig_pkg);
+   FREETMPS;
+   LEAVE;
    goto skip;
   } else {
    SV *rsv;