From 44937dfa5e9b7942ba46c7b2a0f4414b3dc9f0a9 Mon Sep 17 00:00:00 2001 From: rubidium Date: Tue, 30 Nov 2010 12:02:19 +0000 Subject: [PATCH] (svn r21356) -Fix (r21351): sometimes versions wouldn't be correctly set for Windows builds --- projects/determineversion.vbs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/projects/determineversion.vbs b/projects/determineversion.vbs index 1670882fb2..3b5b63d668 100755 --- a/projects/determineversion.vbs +++ b/projects/determineversion.vbs @@ -86,7 +86,7 @@ Function ReadRegistryKey(shive, subkey, valuename, architecture) End Function Function DetermineSVNVersion() - Dim WshShell, version, branch, modified, revision, url, oExec, line, hash + Dim WshShell, version, branch, modified, revision, clean_rev, url, oExec, line, hash Set WshShell = CreateObject("WScript.Shell") On Error Resume Next @@ -261,10 +261,11 @@ Function DetermineSVNVersion() End If ' version = "norev000" End If ' version <> "norev000" - Dim rev_file - Set rev_file = FSO.OpenTextFile("../.ottdrev", 1, True, 0) - If Not rev_file.atEndOfStream Then + If version = "norev000" And FSO.FileExists("../.ottdrev") Then + Dim rev_file + Set rev_file = FSO.OpenTextFile("../.ottdrev", 1, True, 0) DetermineSVNVersion = rev_file.ReadLine() + rev_file.Close() Else If modified = 2 Then version = version & "M" @@ -281,7 +282,6 @@ Function DetermineSVNVersion() DetermineSVNVersion = version End If End If - rev_file.close End Function Function IsCachedVersion(ByVal version)