X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FClass-MOP.git;a=blobdiff_plain;f=t%2F310_inline_structor.t;fp=t%2F310_inline_structor.t;h=04732d215d3cdc3a879be0bd752244891e71d52d;hp=a1f3e642bd4f3c4cfafd25dbca8b2665f26844f3;hb=15961c86cfd845e6f46b6c362cc1a4b94ffb45db;hpb=5f90deee7aaaa91b691b9bee49ed681daa311b69

diff --git a/t/310_inline_structor.t b/t/310_inline_structor.t
index a1f3e64..04732d2 100644
--- a/t/310_inline_structor.t
+++ b/t/310_inline_structor.t
@@ -200,8 +200,7 @@ use Class::MOP;
     sub _inline_destructor {
         my $self = shift;
 
-        my ( $code, $e ) = $self->_eval_closure( {}, 'sub { }' );
-        die $e if $e;
+        my $code = $self->_compile_code(source => 'sub { }');
 
         $self->{body} = $code;
     }