my $schema = DBICTest->init_schema();
-my $lfn = file('t/var/sql.log');
+my $lfn = file("t/var/sql-$$.log");
unlink $lfn or die $!
if -e $lfn;
$schema->storage->debugobj->debugfh(undef)
}
+END {
+ unlink $lfn;
+}
+
open(STDERRCOPY, '>&STDERR');
close(STDERR);
dies_ok {