[Bps-public-commit] r10462 - bpsbuilder/Shipwright/lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Jan 24 04:23:37 2008
New Revision: 10462

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

Log:
not change chdir after we _follow()

Modified: bpsbuilder/Shipwright/lib/Shipwright/Source/Base.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Source/Base.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Source/Base.pm	Thu Jan 24 04:23:37 2008
@@ -8,6 +8,7 @@
 use Module::CoreList;
 use Shipwright::Source;
 use Shipwright::Config;
+use Cwd qw/getcwd/;
 
 use base qw/Class::Accessor::Fast/;
 __PACKAGE__->mk_accessors(
@@ -42,6 +43,7 @@
 sub _follow {
     my $self         = shift;
     my $path         = shift;
+    my $cwd = getcwd;
     my $require_path = File::Spec->catfile( $path, '__require.yml' );
     my $map          = {};
 
@@ -222,6 +224,8 @@
         croak "invalid __require.yml in $path";
     }
 
+# go back to the cwd before we run _follow
+    chdir $cwd;
 }
 
 sub _make_maps {