From a9d2b4b73c077b5d92eb9d53e247d19dc28e901e Mon Sep 17 00:00:00 2001 From: glx Date: Wed, 17 Sep 2008 16:06:05 +0000 Subject: (svn r14355) -Fix: latest svn revision detection from hg log always gave the latest relative to tip revision, not to the current working revision --- projects/determineversion.vbs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'projects') 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) -- cgit v1.2.3-70-g09d2