diff options
author | glx <glx@openttd.org> | 2008-09-17 16:06:05 +0000 |
---|---|---|
committer | glx <glx@openttd.org> | 2008-09-17 16:06:05 +0000 |
commit | a9d2b4b73c077b5d92eb9d53e247d19dc28e901e (patch) | |
tree | 3f9a845687951bc6a0aca699e171916d7801339d /projects | |
parent | 9d3eb490c79ccbaf167253880f6c4f57a710ca28 (diff) | |
download | openttd-a9d2b4b73c077b5d92eb9d53e247d19dc28e901e.tar.xz |
(svn r14355) -Fix: latest svn revision detection from hg log always gave the latest relative to tip revision, not to the current working revision
Diffstat (limited to 'projects')
-rwxr-xr-x | projects/determineversion.vbs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/projects/determineversion.vbs b/projects/determineversion.vbs index 330a53f6b..301f3097e 100755 --- a/projects/determineversion.vbs +++ b/projects/determineversion.vbs @@ -41,7 +41,7 @@ Sub UpdateFiles(version) revision = Mid(revision, 1, InStr(revision, "-") - 1) End If Case "h" ' mercurial (hg) - Set oExec = WshShell.Exec("hg log -k " & Chr(34) & "svn" & Chr(34) & " -l 1 --template " & Chr(34) & "{desc}\n" & Chr(34) & " ../src") + Set oExec = WshShell.Exec("hg log -r " & Mid(version, 2, 8) & ":0 -k " & Chr(34) & "svn" & Chr(34) & " -l 1 --template " & Chr(34) & "{desc}\n" & Chr(34) & " ../src") If Err.Number = 0 Then revision = Mid(OExec.StdOut.ReadLine(), 7) revision = Mid(revision, 1, InStr(revision, ")") - 1) |