[svn:Module-Build] r12666 - Module-Build/trunk/t

Author: dagolden
Date: Thu Apr  2 03:33:58 2009
New Revision: 12666

Modified:
   Module-Build/trunk/t/ext.t

Log:
replace call to 'perl' with $^X


Modified: Module-Build/trunk/t/ext.t
==============================================================================
--- Module-Build/trunk/t/ext.t	(original)
+++ Module-Build/trunk/t/ext.t	Thu Apr  2 03:33:58 2009
@@ -129,7 +129,7 @@
 
   my @data = map values(%$_), @unix_splits, @win_splits;
   for my $d (@data) {
-    chomp(my $out = Module::Build->_backticks('perl', '-le', 'print join " ", map "{$_}", @ARGV', @$d));
+    chomp(my $out = Module::Build->_backticks($^X, '-le', 'print join " ", map "{$_}", @ARGV', @$d));
     is($out, join(' ', map "{$_}", @$d), "backticks round trip for ".join('',map "{$_}", @$d));
   }
 }