[Bps-public-commit] r15130 - in Shipwright: branches/1.10/lib/Shipwright branches/1.10/lib/Shipwright/Backend branches/1.10/lib/Shipwright/Source trunk/lib/Shipwright/Backend trunk/lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Aug 13 13:49:11 2008
New Revision: 15130

Modified:
   Shipwright/branches/1.10/lib/Shipwright/Backend/SVN.pm
   Shipwright/branches/1.10/lib/Shipwright/Build.pm
   Shipwright/branches/1.10/lib/Shipwright/Source.pm
   Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm
   Shipwright/trunk/lib/Shipwright/Backend/SVN.pm
   Shipwright/trunk/lib/Shipwright/Build.pm
   Shipwright/trunk/lib/Shipwright/Source.pm
   Shipwright/trunk/lib/Shipwright/Source/CPAN.pm

Log:
cleaned all the tmp dirs

Modified: Shipwright/branches/1.10/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/branches/1.10/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/branches/1.10/lib/Shipwright/Backend/SVN.pm	Wed Aug 13 13:49:11 2008
@@ -227,7 +227,7 @@
     my $latest = shift;
 
     if ( $path =~ m{(.*)/(.*)$} ) {
-        my $dir = tempdir( CLEANUP => 0 );
+        my $dir = tempdir( CLEANUP => 1 );
         my $file = File::Spec->catfile( $dir, $2 );
 
         $self->checkout(

Modified: Shipwright/branches/1.10/lib/Shipwright/Build.pm
==============================================================================
--- Shipwright/branches/1.10/lib/Shipwright/Build.pm	(original)
+++ Shipwright/branches/1.10/lib/Shipwright/Build.pm	Wed Aug 13 13:49:11 2008
@@ -18,6 +18,7 @@
 use File::Find qw/find/;
 use File::Slurp;
 use File::Path;
+use Cwd qw/getcwd/;
 
 =head2 new
 
@@ -34,7 +35,8 @@
     $self->log( Log::Log4perl->get_logger( ref $self ) );
 
     $self->{build_base} ||=
-      File::Spec->catfile( tempdir( CLEANUP => 0 ), 'build' );
+      File::Spec->catfile( tempdir( CLEANUP => 1 ) );
+    rmdir $self->{build_base};
 
     $self->name('vessel') unless $self->name;
     $self->skip( {} ) unless $self->skip;
@@ -92,6 +94,7 @@
 
     mkpath $self->install_base unless -e $self->install_base;
 
+    my $orig_cwd = getcwd;
     chdir $self->build_base;
 
     if ( $self->only_test ) {
@@ -188,6 +191,7 @@
             "install finished. the dists are at " . $self->install_base );
     }
 
+    chdir $orig_cwd;
 }
 
 # install one dist, the install methods are in scripts/distname/build

Modified: Shipwright/branches/1.10/lib/Shipwright/Source.pm
==============================================================================
--- Shipwright/branches/1.10/lib/Shipwright/Source.pm	(original)
+++ Shipwright/branches/1.10/lib/Shipwright/Source.pm	Wed Aug 13 13:49:11 2008
@@ -11,7 +11,7 @@
 
 our %DEFAULT = ( follow => 1, );
 
-$DEFAULT{directory} = tempdir( CLEANUP => 0 );
+$DEFAULT{directory} = tempdir( CLEANUP => 1 );
 $DEFAULT{scripts_directory} = 
   File::Spec->catfile( $DEFAULT{directory}, '__scripts' );
 $DEFAULT{download_directory} =

Modified: Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm
==============================================================================
--- Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm	(original)
+++ Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm	Wed Aug 13 13:49:11 2008
@@ -15,7 +15,7 @@
 
 use base qw/Shipwright::Source::Base/;
 
-my $cpan_dir = tempdir( CLEANUP => 0 );
+my $cpan_dir = tempdir( CLEANUP => 1 );
 unshift @INC, $cpan_dir;
 
 =head1 NAME

Modified: Shipwright/trunk/lib/Shipwright/Backend/SVN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend/SVN.pm	Wed Aug 13 13:49:11 2008
@@ -243,7 +243,7 @@
     my $latest = shift;
 
     if ( $path =~ m{(.*)/(.*)$} ) {
-        my $dir = tempdir( CLEANUP => 0 );
+        my $dir = tempdir( CLEANUP => 1 );
         my $file = File::Spec->catfile( $dir, $2 );
 
         $self->checkout(

Modified: Shipwright/trunk/lib/Shipwright/Build.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Build.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Build.pm	Wed Aug 13 13:49:11 2008
@@ -18,6 +18,7 @@
 use File::Find qw/find/;
 use File::Slurp;
 use File::Path;
+use Cwd qw/getcwd/;
 
 =head2 new
 
@@ -34,7 +35,8 @@
     $self->log( Log::Log4perl->get_logger( ref $self ) );
 
     $self->{build_base} ||=
-      File::Spec->catfile( tempdir( CLEANUP => 0 ), 'build' );
+      File::Spec->catfile( tempdir( CLEANUP => 1 ) );
+    rmdir $self->{build_base};
 
     $self->name('vessel') unless $self->name;
     $self->skip( {} ) unless $self->skip;
@@ -92,6 +94,7 @@
 
     mkpath $self->install_base unless -e $self->install_base;
 
+    my $orig_cwd = getcwd;
     chdir $self->build_base;
 
     if ( $self->only_test ) {
@@ -195,6 +198,7 @@
             "install finished. the dists are at " . $self->install_base );
     }
 
+    chdir $orig_cwd;
 }
 
 # install one dist, the install methods are in scripts/distname/build

Modified: Shipwright/trunk/lib/Shipwright/Source.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source.pm	Wed Aug 13 13:49:11 2008
@@ -11,7 +11,7 @@
 
 our %DEFAULT = ( follow => 1, );
 
-$DEFAULT{directory} = tempdir( CLEANUP => 0 );
+$DEFAULT{directory} = tempdir( CLEANUP => 1 );
 $DEFAULT{scripts_directory} = 
   File::Spec->catfile( $DEFAULT{directory}, '__scripts' );
 $DEFAULT{download_directory} =

Modified: Shipwright/trunk/lib/Shipwright/Source/CPAN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	Wed Aug 13 13:49:11 2008
@@ -15,7 +15,7 @@
 
 use base qw/Shipwright::Source::Base/;
 
-my $cpan_dir = tempdir( CLEANUP => 0 );
+my $cpan_dir = tempdir( CLEANUP => 1 );
 unshift @INC, $cpan_dir;
 
 =head1 NAME