X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest%2FBaseSchema.pm;h=c68d7fded0694f63c499bcc6fe110c0c46148686;hb=961d79dbe25ef8a92e867fcc84914b4bf568c11d;hp=cdc7a02e71d126bfe860bffc0fc87b4142e5442b;hpb=d7d45bdc6577c020f62cfbf6767431a1c41a351f;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/lib/DBICTest/BaseSchema.pm b/t/lib/DBICTest/BaseSchema.pm
index cdc7a02..c68d7fd 100644
--- a/t/lib/DBICTest/BaseSchema.pm
+++ b/t/lib/DBICTest/BaseSchema.pm
@@ -257,7 +257,11 @@ sub clone {
 }
 
 END {
-  assert_empty_weakregistry($weak_registry, 'quiet');
+  # Make sure we run after any cleanup in other END blocks
+  require B;
+  push @{ B::end_av()->object_2svref }, sub {
+    assert_empty_weakregistry($weak_registry, 'quiet');
+  };
 }
 
 1;