From: Dave Rolsky <autarch@urth.org>
Date: Mon, 15 Jun 2009 15:32:33 +0000 (-0500)
Subject: Shut up a warning from this test
X-Git-Tag: 0.86~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f38cdae7726cf0beb37dac0783c3dabf0cc63c6;p=gitmo%2FClass-MOP.git

Shut up a warning from this test
---

diff --git a/t/310_immutable_destroy.t b/t/310_immutable_destroy.t
index 100bbcf..0cae21f 100644
--- a/t/310_immutable_destroy.t
+++ b/t/310_immutable_destroy.t
@@ -9,7 +9,9 @@ SKIP: {
         exit 0;
     }
 
-    eval <<'EOF';
+    {
+        local $SIG{__WARN__} = sub {};
+        eval <<'EOF';
     package FooBar;
     use Moose;
 
@@ -19,6 +21,7 @@ SKIP: {
 
     __PACKAGE__->meta->make_immutable;
 EOF
+    }
 
     my $f = FooBar->new( name => 'SUSAN' );