# kill our $dbh
$schema_autorecon->storage->_dbh(undef);
- ok (! defined $orig_dbh, 'Parent $dbh handle is gone');
+
+ TODO: {
+ local $TODO = "Perl $] is known to leak like a sieve"
+ if DBIx::Class::_ENV_::PEEPEENESS();
+
+ ok (! defined $orig_dbh, 'Parent $dbh handle is gone');
+ }
}
else {
# wait for parent to kill its $dbh
# try to do something dbic-esque
$rs->create({ name => "Hardcore Forker $$" });
- ok (! defined $orig_dbh, 'DBIC operation triggered reconnect - old $dbh is gone');
+
+ TODO: {
+ local $TODO = "Perl $] is known to leak like a sieve"
+ if DBIx::Class::_ENV_::PEEPEENESS();
+
+ ok (! defined $orig_dbh, 'DBIC operation triggered reconnect - old $dbh is gone');
+ }
exit 0;
}