[Bps-public-commit] r14841 - in Shipwright/trunk: . lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Aug  6 06:17:16 2008
New Revision: 14841

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

Log:
 r15298 at sunnavys-mb:  sunnavy | 2008-08-06 17:19:19 +0800
 added scripts_directory to put scripts from other shipwright sources


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:16 2008
@@ -12,6 +12,8 @@
 our %DEFAULT = ( follow => 1, );
 
 $DEFAULT{directory} = tempdir( CLEANUP => 0 );
+$DEFAULT{scripts_directory} = 
+  File::Spec->catfile( $DEFAULT{directory}, '__scripts' );
 $DEFAULT{download_directory} =
   File::Spec->catfile( $DEFAULT{directory}, 'download' );
 $DEFAULT{map_path} = File::Spec->catfile( $DEFAULT{directory}, 'map.yml' );

Modified: Shipwright/trunk/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Base.pm	Wed Aug  6 06:17:16 2008
@@ -12,9 +12,9 @@
 
 use base qw/Class::Accessor::Fast/;
 __PACKAGE__->mk_accessors(
-    qw/source directory download_directory follow min_perl_version map_path
-      skip map keep_recommends keep_build_requires name log url_path
-      version_path version/
+    qw/source directory scripts_directory download_directory follow 
+    min_perl_version map_path skip map keep_recommends keep_build_requires 
+    name log url_path version_path version/
 );
 
 =head1 NAME