use warnings;
use Test::More;
+BEGIN {
+ require DBICTest::Util;
+ plan skip_all => "Your perl version $] appears to leak like a sieve - skipping test"
+ if DBICTest::Util::PEEPEENESS();
+}
use DBICTest::RunMode;
use DBICTest::Util::LeakTracer qw(populate_weakregistry assert_empty_weakregistry visit_refs);
use Scalar::Util qw(weaken blessed reftype);
use DBIx::Class::_Util qw(hrefaddr sigwarn_silencer modver_gt_or_eq modver_gt_or_eq_and_lt);
-BEGIN {
- plan skip_all => "Your perl version $] appears to leak like a sieve - skipping test"
- if DBIx::Class::_ENV_::PEEPEENESS;
-}
-
my $TB = Test::More->builder;
if ($ENV{DBICTEST_IN_PERSISTENT_ENV}) {
local $ENV{DBICTEST_IN_PERSISTENT_ENV} = 1;
+ require File::Spec;
+
$persistence_tests = {
PPerl => {
cmd => [qw/pperl --prefork=1/, __FILE__],