Commit 209dd38d authored by jayesh's avatar jayesh
Browse files

1) Open the *correct* Version file (2) Avoid reading newline from the Version file

parent 85331c6c
...@@ -1008,14 +1008,15 @@ End Function ...@@ -1008,14 +1008,15 @@ End Function
' Get MPICH2 Version ' Get MPICH2 Version
' '
Function GetMPICH2Version() Function GetMPICH2Version()
if f.FileExists("src\maint\Version") then if f.FileExists("maint\Version") then
Dim fin, ver Dim fin, ver
Set fin = f.OpenTextFile("src\maint\Version") Set fin = f.OpenTextFile("maint\Version")
ver = fin.ReadAll() ver = fin.ReadLine()
Trim(ver)
fin.Close() fin.Close()
GetMPICH2Version = ver GetMPICH2Version = ver
else else
GetMPICH2Version = "1.0.5" GetMPICH2Version = "0.0.0"
end if end if
End Function End Function
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment