| 1 |
Author: idl0r |
| 2 |
Date: 2009-05-01 19:03:07 +0000 (Fri, 01 May 2009) |
| 3 |
New Revision: 570 |
| 4 |
|
| 5 |
Modified: |
| 6 |
trunk/src/echangelog/echangelog |
| 7 |
Log: |
| 8 |
Respect $PATH while looking for git, thanks to grobian. |
| 9 |
|
| 10 |
|
| 11 |
Modified: trunk/src/echangelog/echangelog |
| 12 |
=================================================================== |
| 13 |
--- trunk/src/echangelog/echangelog 2009-05-01 17:39:18 UTC (rev 569) |
| 14 |
+++ trunk/src/echangelog/echangelog 2009-05-01 19:03:07 UTC (rev 570) |
| 15 |
@@ -104,10 +104,16 @@ |
| 16 |
} elsif ( -d '.svn' ) { |
| 17 |
$vcs = "svn"; |
| 18 |
} else { |
| 19 |
- if ( -x '/usr/bin/git' ) { |
| 20 |
- open(GIT, '-|', "git rev-parse --git-dir 2>/dev/null"); |
| 21 |
- $vcs = "git" if defined(<GIT>); |
| 22 |
- close(GIT); |
| 23 |
+ # Respect $PATH while looking for git |
| 24 |
+ if (getenv("PATH")) { |
| 25 |
+ foreach my $path ( split(":", getenv("PATH")) ) { |
| 26 |
+ if ( -X "$path/git" ) { |
| 27 |
+ open(GIT, '-|', "git rev-parse --git-dir 2>/dev/null"); |
| 28 |
+ $vcs = "git" if defined(<GIT>); |
| 29 |
+ close(GIT); |
| 30 |
+ last; |
| 31 |
+ } |
| 32 |
+ } |
| 33 |
} |
| 34 |
|
| 35 |
if ( ! $vcs ) { |
Archives