[Bps-public-commit] r14914 - Shipwright/trunk/lib/Shipwright

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Aug  8 04:09:35 2008
New Revision: 14914

Modified:
   Shipwright/trunk/lib/Shipwright/Source.pm

Log:
tiny fix

Modified: Shipwright/trunk/lib/Shipwright/Source.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source.pm	Fri Aug  8 04:09:35 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} );