[Bps-public-commit] r14842 - in Shipwright/trunk: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Aug  6 06:17:27 2008
New Revision: 14842

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Source.pm

Log:
 r15299 at sunnavys-mb:  sunnavy | 2008-08-06 17:20:24 +0800
 mkdir unless exist


Modified: Shipwright/trunk/lib/Shipwright/Source.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source.pm	Wed Aug  6 06:17:27 2008
@@ -46,6 +46,10 @@
 
     croak "need source arg" unless exists $args{source};
 
+    for my $dir ( qw/directory download_directory scripts_directory/ ) {
+        mkdir $dir unless -e $args{$dir};
+    }
+
     my $type = type( \$args{source} );
 
     croak "invalid source: $args{source}" unless $type;