From f2dc723da5db03840783b5f00103f2346e64128d Mon Sep 17 00:00:00 2001 From: glx Date: Wed, 12 Sep 2007 22:05:53 +0000 Subject: (svn r11090) -Fix (r11089): incorrect version format and failure with paths containing spaces --- projects/determineversion.vbs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'projects/determineversion.vbs') 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 -- cgit v1.2.3-54-g00ecf