[Bps-public-commit] r10753 - Shipwright/lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Feb  7 02:33:03 2008
New Revision: 10753

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

Log:
chdir to the top source dir before run source

Modified: Shipwright/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/lib/Shipwright/Source/Base.pm	Thu Feb  7 02:33:03 2008
@@ -191,6 +191,8 @@
 
                 unless ( grep { $name eq $_ } @sources ) {
                     my $s;
+                    my $cwd = getcwd;
+                    chdir $self->directory;
                     if (   $require->{$type}{$module}{source}
                         && $require->{$type}{$module}{source} ne 'CPAN' )
                     {
@@ -208,6 +210,7 @@
                         );
                     }
                     $s->run();
+                    chdir $cwd;
                 }
 
                 # reload map