mirror/OpenTTD
1
0
Fork 1
mirror of https://github.com/OpenTTD/OpenTTD.git synced 2025-09-02 03:19:10 +00:00
Code Issues Activity

(svn r11090) -Fix (r11089): incorrect version format and failure with paths containing spaces

Browse Source
This commit is contained in:
glx
2007-09-12 22:05:53 +00:00
parent 9e7931f6ea
commit f2dc723da5
5 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
projects/determineversion.vbs
View File

@@ -40,7 +40,7 @@ Function DetermineSVNVersion()
Dim file
' Write some "magic" to a temporary file so we can acquire the svn revision/state
Set file = FSO.CreateTextFile("tsvn_tmp", -1, 0)
file.WriteLine "$WCREV$$WCMODS?M:$"
file.WriteLine "r$WCREV$$WCMODS?M:$"
file.WriteLine "$WCURL$"
file.Close
Set oExec = WshShell.Exec(sTortoise & "\bin\SubWCRev.exe ../src tsvn_tmp tsvn_tmp")
@@ -85,7 +85,7 @@ Function DetermineSVNVersion()
url = line
End If
If InStr(line, "Last Changed Rev") Then
version = Mid(line, 19) & modified
version = "r" & Mid(line, 19) & modified
End If
Loop While Not OExec.StdOut.atEndOfStream
End If