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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Jan 23 01:40:51 2008
New Revision: 10437

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

Log:
order fix

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	Wed Jan 23 01:40:51 2008
@@ -156,6 +156,7 @@
     print $log "no default install-base, will set it to $args{'install-base'}\n";
 }
 
+my $order = parse_order( File::Spec->catfile( 'shipwright', 'order.yml' ) );
 if ( grep { $_ eq 'perl' } @$order ) {
     $args{perl} = File::Spec->catfile($args{'install-base'}, 'bin', 'perl');
 }
@@ -199,7 +200,6 @@
         )
     );
 
-    my $order = parse_order( File::Spec->catfile( 'shipwright', 'order.yml' ) );
 
     for my $dist (@$order) {
         unless ( grep { $dist eq $_ } @{ $args{skip} } ) {