# kill our $dbh
$schema_autorecon->storage->_dbh(undef);
- TODO: {
+ {
local $TODO = "Perl $] is known to leak like a sieve"
if DBIx::Class::_ENV_::PEEPEENESS;
# try to do something dbic-esque
$rs->create({ name => "Hardcore Forker $$" });
- TODO: {
+ {
local $TODO = "Perl $] is known to leak like a sieve"
if DBIx::Class::_ENV_::PEEPEENESS;