equal
deleted
inserted
replaced
215 End If ' Err.Number = 0 |
215 End If ' Err.Number = 0 |
216 |
216 |
217 If version = "norev000" Then |
217 If version = "norev000" Then |
218 ' git detection failed, reset error and try mercurial (hg) |
218 ' git detection failed, reset error and try mercurial (hg) |
219 Err.Clear |
219 Err.Clear |
220 Set oExec = WshShell.Exec("hg tip") |
220 Set oExec = WshShell.Exec("hg parents") |
221 If Err.Number = 0 Then |
221 If Err.Number = 0 Then |
222 ' Wait till the application is finished ... |
222 ' Wait till the application is finished ... |
223 Do While oExec.Status = 0 |
223 Do While oExec.Status = 0 |
224 Loop |
224 Loop |
225 |
225 |