intersystems / ipm

InterSystems ObjectScript Package Manager
MIT License
27 stars 19 forks source link

Clean up "load from .tgz" process #474

Closed isc-tleavitt closed 2 weeks ago

isc-tleavitt commented 5 months ago

In %IPM.Main:Load:

    } ElseIf ##class(%File).Exists(tDirectoryName),$$$lcase($Piece(tDirectoryName, ".", *)) = "tgz" {
        Set tTargetDirectory = $$$FileTempDirSys
        Set tSC = ##class(%IPM.General.Archive).Extract(tDirectoryName, tTargetDirectory)
        $$$ThrowOnError(##class(%IPM.Utils.Module).LoadNewModule(tTargetDirectory, .tParams))
    }

This should: