diff options
| author | glx <glx@openttd.org> | 2007-09-12 22:05:53 +0000 |
|---|---|---|
| committer | glx <glx@openttd.org> | 2007-09-12 22:05:53 +0000 |
| commit | f2dc723da5db03840783b5f00103f2346e64128d (patch) | |
| tree | c32bc31372e2cf937961aef19a94a416e49380fd /projects/determineversion.vbs | |
| parent | 9e7931f6ea41eea7052e7f40cc841694feed252b (diff) | |
| download | openttd-f2dc723da5db03840783b5f00103f2346e64128d.tar.xz | |
(svn r11090) -Fix (r11089): incorrect version format and failure with paths containing spaces
Diffstat (limited to 'projects/determineversion.vbs')
| -rw-r--r-- | projects/determineversion.vbs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/projects/determineversion.vbs b/projects/determineversion.vbs index fc1c31405..6d04e49f2 100644 --- a/projects/determineversion.vbs +++ b/projects/determineversion.vbs @@ -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 |