[svn:parrot] r34572 - trunk/t/tools

[rurban]

Author: rurban
Date: Mon Dec 29 05:44:20 2008
New Revision: 34572

Modified:
   trunk/t/tools/dump_pbc.t

Log:
[cage] prefer $PConfig{perl} over perl



Modified: trunk/t/tools/dump_pbc.t
==============================================================================
--- trunk/t/tools/dump_pbc.t    (original)
+++ trunk/t/tools/dump_pbc.t    Mon Dec 29 05:44:20 2008
@@ -35,7 +35,7 @@
     my $PARROT   = ".$PConfig{slash}$PConfig{test_prog}";
     system( "$PARROT --output $pbc_fn $pir_fn" );
     my $cmd = File::Spec->catfile( qw{. tools util dump_pbc.pl} );
-    my $out = `perl $cmd $pbc_fn`;
+    my $out = `$PConfig{perl} $cmd $pbc_fn`;
 
     like( $out, $snippet, $desc );