[Bps-public-commit] r14916 - in Shipwright/branches/2.0: lib/Shipwright

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Aug  8 04:22:49 2008
New Revision: 14916

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

Log:
 r15442 at sunnavys-mb (orig r14914):  sunnavy | 2008-08-08 16:09:35 +0800
 tiny fix


Modified: Shipwright/branches/2.0/lib/Shipwright/Source.pm
==============================================================================
--- Shipwright/branches/2.0/lib/Shipwright/Source.pm	(original)
+++ Shipwright/branches/2.0/lib/Shipwright/Source.pm	Fri Aug  8 04:22:49 2008
@@ -47,7 +47,7 @@
     croak "need source arg" unless exists $args{source};
 
     for my $dir ( qw/directory download_directory scripts_directory/ ) {
-        mkdir $dir unless -e $args{$dir};
+        mkdir $args{$dir} unless -e $args{$dir};
     }
 
     my $type = type( \$args{source} );