[Bps-public-commit] r10430 - bpsbuilder/Shipwright/lib/Shipwright

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jan 22 13:59:11 2008
New Revision: 10430

Modified:
   bpsbuilder/Shipwright/lib/Shipwright/Backend.pm

Log:
we should set default perl to the new built perl if we have that, else set it to $^X

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	Tue Jan 22 13:59:11 2008
@@ -156,7 +156,13 @@
     print $log "no default install-base, will set it to $args{'install-base'}\n";
 }
 
-$args{perl} ||= $^X;
+if ( grep { $_ eq 'perl' } @$order ) {
+    $args{perl} = File::Spec->catfile($args{'install-base'}, 'bin', 'perl');
+}
+else {
+    $args{perl} = $^X;
+}
+
 $args{skip} = [ split /,\s*/, $args{skip} || '' ];
 
 {