Consolidate all constants under DBIC::_ENV_, bump n::c breakage to < 5.8.5

[dbsrgits/DBIx-Class-Historic.git] / t / 52leaks.t

diff --git a/t/52leaks.t b/t/52leaks.t
index f2d23c8..6707b83 100644 (file)
--- a/t/52leaks.t
+++ b/t/52leaks.t
@@ -35,9 +35,10 @@ if ($ENV{DBICTEST_IN_PERSISTENT_ENV}) {
 
 use lib qw(t/lib);
 use DBICTest::RunMode;
+use DBIx::Class;
 BEGIN {
   plan skip_all => "Your perl version $] appears to leak like a sieve - skipping test"
-    if DBICTest::RunMode->peepeeness;
+    if DBIx::Class::_ENV_::PEEPEENESS();
 }
 
 use Scalar::Util qw/refaddr reftype weaken/;