avoid warnings
Hans Dieter Pearcey [Mon, 27 Apr 2009 15:22:03 +0000 (11:22 -0400)]
Changes
t/sub.t

diff --git a/Changes b/Changes
index 2e3afb0..b9044f5 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for MooseX-InsideOut
 
+0.103   Mon, 27 Apr 2009 11:22:28 -0400
+
+  * avoid warnings with latest Moose
+
 0.102   Sat, 04 Apr 2009 16:43:59 -0400
 
   * add prereq for namespace::clean
diff --git a/t/sub.t b/t/sub.t
index 85f6a6b..7826411 100644 (file)
--- a/t/sub.t
+++ b/t/sub.t
@@ -40,5 +40,7 @@ for my $c (@classes) {
 #  use Data::Dumper;
 #  diag Dumper($obj);
 
-  $sub->meta->make_immutable, redo if $sub->meta->is_mutable;
+  $sub->meta->make_immutable(
+    inline_constructor => ($c ne 'Hash' and $c ne 'Array')
+  ), redo if $sub->meta->is_mutable;
 }