From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 20 Jan 2009 17:39:54 +0000 (+0000)
Subject: Disable 103many_to_many_warning.t for perl 5.10 - warnings::register is broken on it
X-Git-Tag: v0.08240~187
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed0bdca2a188efd94f4a441b946aa9716b3bcbe6;p=dbsrgits%2FDBIx-Class.git

Disable 103many_to_many_warning.t for perl 5.10 - warnings::register is broken on it
---

diff --git a/t/103many_to_many_warning.t b/t/103many_to_many_warning.t
index c316820..f98024c 100644
--- a/t/103many_to_many_warning.t
+++ b/t/103many_to_many_warning.t
@@ -5,7 +5,10 @@ use Test::More;
 use lib qw(t/lib);
 use Data::Dumper;
 
-plan tests => 2;
+plan ( ($] >= 5.009000 and $] < 5.010001)
+  ? (skip_all => 'warnings::register broken under 5.10: http://rt.perl.org/rt3/Public/Bug/Display.html?id=62522')
+  : (tests => 2)
+);
 
 {
   my @w;