X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F71mysql.t;h=de1e2fda72d8c7e03c4ea993fd176ace8970cec3;hb=704a0f8ec36f8bd8e273f5ddb553b2f67ea83f06;hp=4e89d9f2bbdd054458517b9b90ad44f59f956592;hpb=45150bc4f3b983d64477728e2bd8e722c10c7a31;p=dbsrgits%2FDBIx-Class.git diff --git a/t/71mysql.t b/t/71mysql.t index 4e89d9f..de1e2fd 100644 --- a/t/71mysql.t +++ b/t/71mysql.t @@ -425,7 +425,7 @@ ZEROINSEARCH: { # kill our $dbh $schema_autorecon->storage->_dbh(undef); - TODO: { + { local $TODO = "Perl $] is known to leak like a sieve" if DBIx::Class::_ENV_::PEEPEENESS; @@ -449,7 +449,7 @@ ZEROINSEARCH: { # 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;