summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xprojects/determineversion.vbs10
1 files changed, 5 insertions, 5 deletions
diff --git a/projects/determineversion.vbs b/projects/determineversion.vbs
index 1670882fb..3b5b63d66 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)