[svn:dbi] rev 455 - in dbi/trunk: lib/DBI t

[timbo]

Author: timbo
Date: Fri Sep 10 01:40:29 2004
New Revision: 455

Modified:
   dbi/trunk/lib/DBI/DBD.pm
   dbi/trunk/t/10examp.t
Log:
Workaround vmsify issue for VMS
Restore trace level (eg from DBI_TRACE env var) during trace() testing.


Modified: dbi/trunk/lib/DBI/DBD.pm
==============================================================================
--- dbi/trunk/lib/DBI/DBD.pm    (original)
+++ dbi/trunk/lib/DBI/DBD.pm    Fri Sep 10 01:40:29 2004
@@ -3754,6 +3754,7 @@
     my $xstf_h = '$(DBI_INSTARCH_DIR)/Driver_xst.h';
     if ($^O eq 'VMS') {
        $dbi_instarch_dir = vmsify($dbi_instarch_dir.'/');
+       $dbi_instarch_dir =~ s:/$::; # for buggy old vmsify's?
        $dbi_driver_xst= '$(DBI_INSTARCH_DIR)Driver.xst';
        $xstf_h = '$(DBI_INSTARCH_DIR)Driver_xst.h';
     }

Modified: dbi/trunk/t/10examp.t
==============================================================================
--- dbi/trunk/t/10examp.t       (original)
+++ dbi/trunk/t/10examp.t       Fri Sep 10 01:40:29 2004
@@ -48,6 +48,8 @@
 
        is( unlink( $trace_file ), 1, "Remove trace file: $trace_file" );
        ok( !-e $trace_file, "Trace file actually gone" );
+
+       DBI->trace($orig_trace_level);  # no way to restore previous outfile XXX
 }
 
 trace_to_file();