also don't close over member tc objects in native delegations

[gitmo/Moose.git] / lib / Moose / Meta / Method / Accessor / Native / Array / insert.pm

diff --git a/lib/Moose/Meta/Method/Accessor/Native/Array/insert.pm b/lib/Moose/Meta/Method/Accessor/Native/Array/insert.pm
index 08d4723..3025947 100644 (file)
--- a/lib/Moose/Meta/Method/Accessor/Native/Array/insert.pm
+++ b/lib/Moose/Meta/Method/Accessor/Native/Array/insert.pm
@@ -44,7 +44,7 @@ sub _inline_coerce_new_values {
 
     return unless $self->_tc_member_type_can_coerce;
 
-    return '@_ = ($_[0], $member_tc_obj->coerce($_[1]));';
+    return '@_ = ($_[0], $member_coercion->($_[1]));';
 };
 
 sub _new_members { '$_[1]' }