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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Feb  5 21:00:15 2008
New Revision: 10732

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

Log:
should link to normal wrapper if we skip perl

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	Tue Feb  5 21:00:15 2008
@@ -443,6 +443,7 @@
     # then link to it, else link to the normal one
         if (   $type
             && grep( { $_ eq $type } @$order )
+            && !( grep { $_ eq 'perl' } @{ $args{skip} } ) 
             && -e File::Spec->catfile( '..', 'etc', "shipwright-$type-wrapper" )
           )
         {