X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F31dumper.t;h=abf54ce37807dcfd27b7d56731dc96fae8b7fb18;hb=807290c3b024e14b17cb77a6d4d0c30f93856bae;hp=8c59d62c0f34556ae1ee32b8812497503116b99c;hpb=c401ac4b74e6cf42f6dae66961d7cb18c9e4fa0a;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/31dumper.t b/t/31dumper.t
index 8c59d62..abf54ce 100644
--- a/t/31dumper.t
+++ b/t/31dumper.t
@@ -3,7 +3,6 @@
 # Test for Dumper producer
 
 use strict;
-use Config;
 use File::Temp 'tempfile';
 use File::Spec;
 use FindBin qw/$Bin/;
@@ -15,7 +14,8 @@ use Symbol qw(gensym);
 
 BEGIN {
     maybe_plan(
-        5, 
+        5,
+        'DBI',
         'SQL::Translator::Parser::SQLite',
         'SQL::Translator::Producer::Dumper'
     );
@@ -46,9 +46,8 @@ my ( $fh, $filename ) = tempfile( 'XXXXXXXX' );
 print $fh $output;
 close $fh or die "Can't close file '$filename': $!";
 
-my $perl = $Config{'perlpath'};
 open( NULL, ">", File::Spec->devnull );
-my $pid = open3( gensym, ">&NULL", \*PH, "$perl -cw $filename" );
+my $pid = open3( gensym, \*NULL, \*PH, "$^X -cw $filename" );
 my $res;
 while( <PH> ) { $res .= $_;  }
 waitpid($pid, 0);