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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Aug  8 08:02:25 2008
New Revision: 14919

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

Log:
 r15448 at sunnavys-mb:  sunnavy | 2008-08-08 19:58:40 +0800
 fix import _cmd for FS, we ned to create parent directory if it does not exist


Modified: Shipwright/branches/2.0/lib/Shipwright/Backend/FS.pm
==============================================================================
--- Shipwright/branches/2.0/lib/Shipwright/Backend/FS.pm	(original)
+++ Shipwright/branches/2.0/lib/Shipwright/Backend/FS.pm	Fri Aug  8 08:02:25 2008
@@ -71,7 +71,12 @@
                 ];
             }
             else {
-                @cmd = [
+                unless ( -e $self->repository . "/sources/$args{name}/" ) {
+                    push @cmd,
+                      [ 'mkdir', $self->repository . "/sources/$args{name}/" ];
+                }
+
+                push @cmd, [
                     'cp',          '-r',
                     "$args{source}/", $self->repository .
                         "/sources/$args{name}/$args{as}",