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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Feb 13 23:35:28 2009
New Revision: 18394

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

Log:
 r19851 at sunnavys-mb:  sunnavy | 2009-02-14 12:30:48 +0800
 set default $branches to {}


Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Fri Feb 13 23:35:28 2009
@@ -160,13 +160,12 @@
 
 if ( -e catfile( 'shipwright', 'branches.yml' ) ) {
     $branches =
-         ( YAML::Tiny->read( catfile( 'shipwright', 'branches.yml' ) ) )->[0];
-    if ($branches) {
-        for my $name ( keys %{ $args{branches} } ) {
-            die 'no branch name ' . $args{branches}->{$name} . " for $name"
-              unless grep { $_ eq $args{branches}->{$name} }
-                  @{ $branches->{$name} || [] };
-        }
+         ( YAML::Tiny->read( catfile( 'shipwright', 'branches.yml' ) ) )->[0]
+      || {};
+    for my $name ( keys %{ $args{branches} } ) {
+        die 'no branch name ' . $args{branches}->{$name} . " for $name"
+          unless grep { $_ eq $args{branches}->{$name} }
+              @{ $branches->{$name} || [] };
     }
 }