[Bps-public-commit] r12964 - in Shipwright/trunk: share/bin

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jun  6 10:11:36 2008
New Revision: 12964

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/share/bin/shipwright-builder

Log:
 r13056 at sunnavys-mb:  sunnavy | 2008-06-06 22:05:30 +0800
 fixed precedence bug


Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Fri Jun  6 10:11:36 2008
@@ -189,7 +189,7 @@
         if (
             (
                 ( grep { $_ eq 'perl' } @$order )
-                && $args{only} ? $args{only}{perl} : !$args{skip}{perl}
+                && ( $args{only} ? $args{only}{perl} : !$args{skip}{perl} )
             )
             || -e $perl
           )
@@ -374,7 +374,7 @@
     # then link to it, else link to the normal one
         if (   $type
             && grep( { $_ eq $type } @$order )
-            && $args{only} ? $args{only}{$type} : !$args{skip}{$type}
+            && ( $args{only} ? $args{only}{$type} : !$args{skip}{$type} )
             && -e File::Spec->catfile( '..', 'etc', "shipwright-$type-wrapper" )
           )
         {