luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[Scripter]

Browse source 
* BUG: Fix md5sum when path presents with a leading ./ which the shell does not expand
This commit is contained in:
Brian G 2021-04-22 17:55:45 -07:00
parent acd67eb285
commit 64de3cbcce
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
app/src/gbs3/.src/ScriptMain.module
View file

@ -114,9 +114,15 @@ Public Sub ScripterMain(aArgs As String[]) As Integer
If Not $oContext.$bExecuteFromArgs And If Not $oContext.$bScriptSourceStdIn Then
' md5sum requires the absolute path unless we are using a shell which expands it so ./ddd and ~/ can not be calculated for md5sum Process
If Not Exist($sPath) Then
If File.Dir($sPath) = "" Then $sPath = Env["PWD"] &/ $sPath
Dim sPathPart As String = File.Dir($sPath)
If Not Exist($sPath) Or If sPathPart[0] = "." Then
If sPathPart = "" Then
$sPath = Env["PWD"] &/ $sPath
Else If sPathPart[0] = "."
$sPath = Env["PWD"] &/ Right($sPath, -1)
Endif
Endif
$sPath = File.RealPath($sPath)
sName = File.Name($sPath)