提交 72d67cdb authored 作者: Jeff Lenk's avatar Jeff Lenk

FS-4219 --resolve

上级 fbc83cb0
......@@ -375,7 +375,7 @@ Sub CreateVersion(tmpFolder, VersionDir, includebase, includedest)
If strLastCommit <> "" And strLastCommitHuman <> "" And strRevision <> "" Then
'Bild version string
strGitVer = "git~" & strLastCommit & "~" & strRevision
strGitVer = "+git~" & strLastCommit & "~" & strRevision
strVerHuman = strVerRev & "; git at commit " & strRevision & " on " & strLastCommitHuman
'Check for local changes, if found, append to git revision string
......@@ -390,13 +390,7 @@ Sub CreateVersion(tmpFolder, VersionDir, includebase, includedest)
strVerHuman = ""
End If
If strVerRev = "" Then
VERSION=strGitVer
Else
If strGitVer <> "" Then
VERSION=VERSION & "+" & strGitVer
End If
End If
VERSION=VERSION & strGitVer
sLastVersion = ""
Set sLastFile = FSO.OpenTextFile(tmpFolder & "lastversion", ForReading, true, OpenAsASCII)
......
Markdown 格式
0%
您添加了 0 到此讨论。请谨慎行事。
请先完成此评论的编辑!
注册 或者 后发表评论