[Bps-public-commit] r13658 - in Shipwright/trunk: lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Jun 27 14:14:25 2008
New Revision: 13658

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

Log:
 r13893 at sunnavys-mb:  sunnavy | 2008-06-27 23:01:32 +0800
 improved a bit


Modified: Shipwright/trunk/lib/Shipwright/Backend/FS.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/FS.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/FS.pm	Fri Jun 27 14:14:25 2008
@@ -9,6 +9,7 @@
 use File::Copy qw/copy/;
 use File::Copy::Recursive qw/dircopy/;
 use List::MoreUtils qw/uniq/;
+use File::Path;
 
 our %REQUIRE_OPTIONS = ( import => [qw/source/] );
 
@@ -52,6 +53,8 @@
     my $self = shift;
 
     $self->delete;    # clean repository in case it exists
+    mkpath $self->repository unless -e $self->repository;
+
     dircopy( Shipwright::Util->share_root, $self->repository );
 
     # share_root can't keep empty dirs, we have to create them manually