Extra data and first test for xml database_event support

[dbsrgits/SQL-Translator.git] / t / 31dumper.t

diff --git a/t/31dumper.t b/t/31dumper.t
index 8c59d62..2a813b8 100644 (file)
--- a/t/31dumper.t
+++ b/t/31dumper.t
@@ -16,6 +16,7 @@ use Symbol qw(gensym);
 BEGIN {
     maybe_plan(
         5, 
+        'DBI',
         'SQL::Translator::Parser::SQLite',
         'SQL::Translator::Producer::Dumper'
     );
@@ -48,7 +49,7 @@ 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, "$perl -cw $filename" );
 my $res;
 while( <PH> ) { $res .= $_;  }
 waitpid($pid, 0);