X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Fdebug.t;h=6d8e94cf89aee57a630658e5b74387c1ceccc962;hb=8f82b04272bf5c75af7da5491357f67b308031ef;hp=5fd62f5b8e5fcf3acd33f7d409137b0c7237684f;hpb=6ddb4ac0da84a99b4e563a8c828dd3dc25a0aa11;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/storage/debug.t b/t/storage/debug.t
index 5fd62f5..6d8e94c 100644
--- a/t/storage/debug.t
+++ b/t/storage/debug.t
@@ -10,11 +10,11 @@ use DBIC::DebugObj;
 use DBIC::SqlMakerTest;
 use Path::Class qw/file/;
 
-BEGIN { delete @ENV{qw(DBIC_TRACE_PROFILE DBICTEST_SQLITE_USE_FILE)} }
+BEGIN { delete @ENV{qw(DBIC_TRACE DBIC_TRACE_PROFILE DBICTEST_SQLITE_USE_FILE)} }
 
 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;
 
@@ -49,6 +49,10 @@ $schema->storage->debugfh(undef);
   $schema->storage->debugobj->debugfh(undef)
 }
 
+END {
+  unlink $lfn;
+}
+
 open(STDERRCOPY, '>&STDERR');
 close(STDERR);
 dies_ok {