[Bps-public-commit] Shipwright branch, master, updated. d5ae69986496700b908259d7cbf3ec6545560f16

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  d5ae69986496700b908259d7cbf3ec6545560f16 (commit)
      from  70883d3e68cacd2fc9aea86a23b6f939b2626c18 (commit)

Summary of changes:
 share/bin/shipwright-builder |   13 +++++++------
 1 files changed, 7 insertions(+), 6 deletions(-)

- Log -----------------------------------------------------------------
commit d5ae69986496700b908259d7cbf3ec6545560f16
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Fri Sep 11 11:57:04 2009 +0800

    mv install-base set a bit former

diff --git a/share/bin/shipwright-builder b/share/bin/shipwright-builder
index 3ed7e67..f6249f2 100755
--- a/share/bin/shipwright-builder
+++ b/share/bin/shipwright-builder
@@ -152,6 +152,13 @@ if ( $args{only} ) {
 
 $args{'install-base'} = get_install_base() unless $args{'install-base'};
 
+unless ( $args{'install-base'} ) {
+    my $dir = tempdir( 'vessel_' . $args{name} . '-XXXXXX', TMPDIR => 1 );
+    $args{'install-base'} = catdir( $dir, $args{name} );
+    print "no default install-base, will set it to $args{'install-base'}\n";
+}
+
+
 # replace prefix ~ with real home dir
 $args{'install-base'} =~ s/^~/(getpwuid $<)[7]/e;
 
@@ -167,12 +174,6 @@ unless ( $args{name} ) {
     }
 }
 
-unless ( $args{'install-base'} ) {
-    my $dir = tempdir( 'vessel_' . $args{name} . '-XXXXXX', TMPDIR => 1 );
-    $args{'install-base'} = catdir( $dir, $args{name} );
-    print "no default install-base, will set it to $args{'install-base'}\n";
-}
-
 my $installed;
 my $installed_hash = {};
 my $installed_file =

-----------------------------------------------------------------------