Respect $PATH while looking for git, thanks to grobian.

svn path=/; revision=570

diff --git a/trunk/src/echangelog/echangelog b/trunk/src/echangelog/echangelog
index c267c28775bafd9e5237ab4b16db5d5a5b8f3a30..f4a0813749dc9a8c7884583c977825bef21ec853 100755 (executable)
--- a/trunk/src/echangelog/echangelog
+++ b/trunk/src/echangelog/echangelog
@@ -104,10 +104,16 @@ if ( -d "CVS" ) {
 } elsif ( -d '.svn' ) {
        $vcs = "svn";
 } else {
-       if ( -x '/usr/bin/git' ) {
-               open(GIT, '-|', "git rev-parse --git-dir 2>/dev/null");
-               $vcs = "git" if defined(<GIT>);
-               close(GIT);
+       # Respect $PATH while looking for git
+       if (getenv("PATH")) {
+               foreach my $path ( split(":", getenv("PATH")) ) {
+                       if ( -X "$path/git" ) {
+                               open(GIT, '-|', "git rev-parse --git-dir 2>/dev/null");
+                               $vcs = "git" if defined(<GIT>);
+                               close(GIT);
+                               last;
+                       }
+               }
        }
 
        if ( ! $vcs ) {