]> git.vpit.fr Git - perl/modules/Lexical-Types.git/commitdiff
Also call FREETMPS/LEAVE when skipping a typed declaration
authorVincent Pit <vince@profvince.com>
Tue, 29 Dec 2009 17:04:53 +0000 (18:04 +0100)
committerVincent Pit <vince@profvince.com>
Tue, 29 Dec 2009 17:04:53 +0000 (18:04 +0100)
This fixes unbalanced scopes that were uncovered by the new named scope
feature in blead

Types.xs

index 7f653838b11f09c6e98bbf204cef274ab464437a..8ff68ada6755bbcc54d77beb2ffc613cbd84f68d 100644 (file)
--- 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;