[svn:dbi] r8793 - dbi/trunk/lib/DBI

[timbo]

Author: timbo
Date: Fri Feb  2 08:41:41 2007
New Revision: 8793

Modified:
   dbi/trunk/lib/DBI/DBD.pm

Log:
Fix wrappers -T to avoid need to search @INC to find the wrapped .t file.


Modified: dbi/trunk/lib/DBI/DBD.pm
==============================================================================
--- dbi/trunk/lib/DBI/DBD.pm    (original)
+++ dbi/trunk/lib/DBI/DBD.pm    Fri Feb  2 08:41:41 2007
@@ -3047,9 +3047,7 @@
                print PPT "#!$v_perl\n";
                print PPT "use threads;\n" if $usethr;
                print PPT "$_;\n" foreach @{$v_info->{add}};
-               print PPT "require 't/$test'; # or warn \$!;\n";
-               print PPT 'die if $@;'."\n";
-               print PPT "exit 0\n";
+               print PPT "require './t/$test'; # or warn \$!;\n";
                close PPT or warn "Error writing $v_test: $!";
            }
        }