Author: timbo
Date: Thu May 15 05:24:28 2008
New Revision: 11279
Modified:
dbi/trunk/t/09trace.t
Log:
Avoid an odd die in t/09trace.t that's happened on some win32 machines.
Modified: dbi/trunk/t/09trace.t
==============================================================================
--- dbi/trunk/t/09trace.t (original)
+++ dbi/trunk/t/09trace.t Thu May 15 05:24:28 2008
@@ -21,10 +21,8 @@
my $trace_file = "dbitrace.log";
-if (-e $trace_file) {
- 1 while unlink $trace_file;
- die "Can't unlink existing $trace_file: $!" if -e $trace_file;
-}
+1 while unlink $trace_file;
+warn "Can't unlink existing $trace_file: $!" if -e $trace_file;
my $orig_trace_level = DBI->trace;
DBI->trace(3, $trace_file); # enable trace before first driver load
