[Bps-public-commit] Shipwright branch, master, updated. 9f770c44f4d6ce77b6e827084a24011238b84857

[? sunnavy]

The branch, master has been updated
       via  9f770c44f4d6ce77b6e827084a24011238b84857 (commit)
      from  b1c812b0823956dd4475e7f98981068f15894541 (commit)

Summary of changes:
 lib/Shipwright.pm |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

- Log -----------------------------------------------------------------
commit 9f770c44f4d6ce77b6e827084a24011238b84857
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Sun Aug 21 14:08:15 2011 +0800

    set default path of svk, svn, git and dzil

diff --git a/lib/Shipwright.pm b/lib/Shipwright.pm
index c47ec88..d1f41c7 100644
--- a/lib/Shipwright.pm
+++ b/lib/Shipwright.pm
@@ -14,10 +14,10 @@ use Shipwright::Util;
 # strawberry perl's build make is 'dmake'
 use File::Which 'which';
 $ENV{SHIPWRIGHT_MAKE} ||= which('make') || which('dmake') || which( 'nmake' ) || 'make';
-$ENV{SHIPWRIGHT_SVK} ||= which 'svk';
-$ENV{SHIPWRIGHT_SVN} ||= which 'svn';
-$ENV{SHIPWRIGHT_GIT} ||= which 'git';
-$ENV{SHIPWRIGHT_DZIL} ||= which 'dzil';
+$ENV{SHIPWRIGHT_SVK}  ||= which('svk')  || 'svk';
+$ENV{SHIPWRIGHT_SVN}  ||= which('svn')  || 'svn';
+$ENV{SHIPWRIGHT_GIT}  ||= which('git')  || 'git';
+$ENV{SHIPWRIGHT_DZIL} ||= which('dzil') || 'dzil';
 $ENV{SHIPWRIGHT_LWP_TIMEOUT} ||= 1200;
 
 $ENV{PERL_MM_USE_DEFAULT} = 1; # always true

-----------------------------------------------------------------------