From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 21 Apr 2011 14:02:04 +0000 (-0500)
Subject: one more Eval::Closure use
X-Git-Tag: 2.0100~55
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=57324ff5c1e2f26b2ec5ccb022e708be66ee2ede;p=gitmo%2FMoose.git

one more Eval::Closure use
---

diff --git a/t/type_constraints/util_std_type_constraints.t b/t/type_constraints/util_std_type_constraints.t
index 89c35ba..12ca75a 100644
--- a/t/type_constraints/util_std_type_constraints.t
+++ b/t/type_constraints/util_std_type_constraints.t
@@ -732,9 +732,9 @@ for my $name ( sort keys %tests ) {
 
     my $inlined;
     {
-        local $@;
-        $inlined = eval 'sub { ( ' . $type->_inline_check('$_[0]') . ' ) }';
-        die $@ if $@;
+        $inlined = eval_closure(
+            source => 'sub { ( ' . $type->_inline_check('$_[0]') . ' ) }',
+        );
     }
 
     ok(