From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 30 Aug 2009 09:40:11 +0000 (+0000)
Subject: Sanify test
X-Git-Tag: v0.11008~92
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ca4db6766e10b96c717fca81919e772d444af44e;p=dbsrgits%2FSQL-Translator.git

Sanify test
---

diff --git a/t/31dumper.t b/t/31dumper.t
index 2a813b8..4dd0c3e 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/;
@@ -47,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);