X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fextra%2Finternals%2Fattributes.t;h=e305f97c7c325b812dc72e965279b48861010018;hb=0130575a1a5ad9249a5cdc705c043286fabdf32c;hp=5c9b50d4d3ef8db67663bf6dfe7e70169efb5a04;hpb=7bd921c01e7ad780f701c30d53300c610a7202b9;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/xt/extra/internals/attributes.t b/xt/extra/internals/attributes.t
index 5c9b50d..e305f97 100644
--- a/xt/extra/internals/attributes.t
+++ b/xt/extra/internals/attributes.t
@@ -23,7 +23,6 @@ BEGIN {
 use Test::More;
 use DBIx::Class::_Util qw( quote_sub modver_gt_or_eq );
 
-### Test the upcoming attributes support
 require DBIx::Class;
 @DBICTest::ATTRTEST::ISA  = 'DBIx::Class';
 
@@ -102,10 +101,17 @@ if ($skip_threads) {
 }
 else {
   threads->create(sub {
-    add_more_attrs();
+
+    threads->create(sub {
+
+      add_more_attrs();
+      select( undef, undef, undef, 0.2 ); # without this many tasty crashes even on latest perls
+
+    })->join;
+
     select( undef, undef, undef, 0.2 ); # without this many tasty crashes even on latest perls
+
   })->join;
 }
 
-
 done_testing;