[Bps-public-commit] r15151 - in Shipwright/trunk: lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Aug 14 07:00:04 2008
New Revision: 15151

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Script/Import.pm

Log:
 r15712 at sunnavys-mb:  sunnavy | 2008-08-14 16:52:21 +0800
 fixed needless chdir


Modified: Shipwright/trunk/lib/Shipwright/Script/Import.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script/Import.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script/Import.pm	Thu Aug 14 07:00:04 2008
@@ -300,10 +300,8 @@
     my $script_dir = shift;
     my $shipwright = shift;
 
-    chdir $source_dir;
-
     my @commands;
-    if ( -f 'Build.PL' ) {
+    if ( -f File::Spec->catfile( $source_dir, 'Build.PL' ) ) {
         print
 "detected Module::Build build system; generating appropriate build script\n";
         push @commands,
@@ -316,7 +314,7 @@
         # is just a symblic link which can't do things right
         push @commands, "clean: %%PERL%% Build realclean";
     }
-    elsif ( -f 'Makefile.PL' ) {
+    elsif ( -f File::Spec->catfile( $source_dir, 'Makefile.PL' ) ) {
         print
 "detected ExtUtils::MakeMaker build system; generating appropriate build script\n";
         push @commands,
@@ -326,7 +324,7 @@
         push @commands, "install: make install";
         push @commands, "clean: make clean";
     }
-    elsif ( -f 'configure' ) {
+    elsif ( -f File::Spec->catfile( $source_dir, 'configure' ) ) {
         print
 "detected autoconf build system; generating appropriate build script\n";
         @commands = (