Merge branch 'stable'

[gitmo/Class-MOP.git] / t / 310_inline_structor.t

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