From: gfx <gfuji@cpan.org>
Date: Fri, 4 Dec 2009 04:15:06 +0000 (+0900)
Subject: Fix the parameterized HashRef constraint routine
X-Git-Tag: 0.41~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a1cf053185076b2f88cfc67da3c9c3070578db65;p=gitmo%2FMouse.git

Fix the parameterized HashRef constraint routine
---

diff --git a/xs-src/MouseTypeConstraints.xs b/xs-src/MouseTypeConstraints.xs
index 8818186..5260d88 100644
--- a/xs-src/MouseTypeConstraints.xs
+++ b/xs-src/MouseTypeConstraints.xs
@@ -261,6 +261,7 @@ mouse_parameterized_HashRef(pTHX_ SV* const param, SV* const sv) {
             SV* const value = hv_iterval(hv, he);
             SvGETMAGIC(value);
             if(!mouse_tc_check(aTHX_ param, value)){
+                hv_iterinit(hv); /* reset */
                 return FALSE;
             }
         }