From: Florian Ragwitz <rafl@debian.org>
Date: Thu, 20 May 2010 17:47:37 +0000 (+0200)
Subject: Stop testing for clobbering of $@
X-Git-Tag: 1.04~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02e5f2a7175caab1953e635f3f5defb6c4e85ea5;p=gitmo%2FMoose.git

Stop testing for clobbering of $@
---

diff --git a/Changes b/Changes
index 3b67cc9..f8d43da 100644
--- a/Changes
+++ b/Changes
@@ -29,6 +29,9 @@ for, noteworthy changes.
   * New type constraints will default to being unequal, rather than equal
     (rjbs).
 
+  * The tests no longer check for perl's behavior of clobbering $@, which has
+    been fixed in perl-5.13.1 (Florian Ragwitz).
+
 1.03 Thu, May 06, 2010
 
   [NEW FEATURES]
diff --git a/t/100_bugs/012_DEMOLISH_eats_mini.t b/t/100_bugs/012_DEMOLISH_eats_mini.t
index e4b03c4..953e019 100644
--- a/t/100_bugs/012_DEMOLISH_eats_mini.t
+++ b/t/100_bugs/012_DEMOLISH_eats_mini.t
@@ -78,24 +78,4 @@ use Test::Exception;
         if Baz->meta->is_mutable
 }
 
-{
-    package Quux;
-    use Moose;
-
-    sub DEMOLISH {
-        die "foo\n";
-    }
-}
-
-{
-    local $@ = 42;
-
-    eval { my $obj = Quux->new };
-
-    like( $@, qr/foo/, '$@ contains error from demolish when demolish dies' );
-
-    Quux->meta->make_immutable, redo
-        if Quux->meta->is_mutable
-}
-
 done_testing;