From: Fuji, Goro <gfuji@cpan.org>
Date: Tue, 28 Sep 2010 07:09:25 +0000 (+0900)
Subject: Workaround 5.6 problems
X-Git-Tag: 0.76~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a7601ba08e281c7f3524196f38b6f0e45398b49;p=gitmo%2FMouse.git

Workaround 5.6 problems
---

diff --git a/t/001_mouse/028-subclass-attr.t b/t/001_mouse/028-subclass-attr.t
index 8abd69d..27abb63 100644
--- a/t/001_mouse/028-subclass-attr.t
+++ b/t/001_mouse/028-subclass-attr.t
@@ -34,7 +34,7 @@ do {
     extends qw(CB CA);
     has cc => (is => 'rw');
 };
-with_immutable {
+with_immutable sub {
     my $obj = Child->new(class => 1, child => 1);
     ok($obj->child, "local attribute set in constructor");
     ok($obj->class, "inherited attribute set in constructor");
@@ -50,7 +50,7 @@ with_immutable {
         CA->meta->get_attribute('ca'),
         Class->meta->get_attribute('class'),
     )], "correct get_all_attributes");
-} qw(Class CA CB CC);
+}, qw(Class CA CB CC);
 
 do {
     package Foo;