From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 21 Apr 2011 21:23:25 +0000 (-0500)
Subject: these can be undef
X-Git-Tag: 2.0100~42
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78fa4d7d42dd85e1c36511a8e0d0b66ca23bb12b;p=gitmo%2FMoose.git

these can be undef
---

diff --git a/lib/Moose/Meta/Method/Constructor.pm b/lib/Moose/Meta/Method/Constructor.pm
index 3acc738..693c822 100644
--- a/lib/Moose/Meta/Method/Constructor.pm
+++ b/lib/Moose/Meta/Method/Constructor.pm
@@ -80,7 +80,8 @@ sub _eval_environment {
         '$defaults' => \$defaults,
         '@type_constraints' => \@type_constraints,
         '@type_constraint_bodies' => \@type_constraint_bodies,
-        ( map { %{ $_->inline_environment } } @type_constraints ),
+        ( map { defined($_) ? %{ $_->inline_environment } : () }
+              @type_constraints ),
     };
 }