develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
rurban
Date:
December 29, 2008 05:44
Subject:
[svn:parrot] r34572 - trunk/t/tools
Message ID:
20081229134421.BDC3BCB9FA@x12.develooper.com
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 );
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About