fix xpath working with stream

Author: nsolov

src/cls/ZPM/Package.cls

@@ -286,16 +286,30 @@ ClassMethod GetModuleMeta(url As %String) As %DynamicObject
     Set ht.Port = port
   }
   Set ht.Location = tComponents("path")_"master/module.xml"
-    
   $$$ThrowOnError(ht.Get())
   If (ht.HttpResponse.StatusCode'=200) {
     $$$ThrowStatus($$$ERROR(5001,"Unable to download XML "_ht.Location))
   }
-  $$$ThrowOnError(##class(%XML.XPATH.Document).CreateFromStream(ht.HttpResponse.Data, .xpathdoc))
+  Set tmpFolder = $$$FileTempDir
+  Do ##class(%File).CreateDirectory(tmpFolder)
+
+  Set stream=##class(%Stream.FileCharacter).%New()
+  Do stream.LinkToFile(tmpFolder_"/module.xml")
+  Set stream.TranslateTable = "UTF8"
+  Do stream.CopyFrom(ht.HttpResponse.Data)
+  Do stream.%Save()
+
+  set binaryStream=##class(%Stream.FileBinary).%New()
+  do binaryStream.LinkToFile(tmpFolder_"/module.xml")
+
+  $$$ThrowOnError(##class(%XML.XPATH.Document).CreateFromStream(binaryStream, .xpathdoc))
   $$$ThrowOnError(xpathdoc.EvaluateExpression("/","Export/Document/Module/Version/text()", .tResults))
   set jo.version = tResults.GetAt(1).ValueGet()
   $$$ThrowOnError(xpathdoc.EvaluateExpression("/","Export/Document/Module/Name/text()", .tResults))
   set jo.name = tResults.GetAt(1).ValueGet()  
+
+  Do ##class(%File).RemoveDirectoryTree(tmpFolder)
+  
   return jo
 }
 
@@ -339,7 +353,6 @@ ClassMethod UpdatePackage(jo As %DynamicObject) As %Status
 
 ClassMethod Publish(url As %String, name As %String) As %Status
 {
-
   Set outputFolder = ..DownloadPackageFromGitHub(url)
   Set packageFolder = ##class(%File).NormalizeDirectory(name _ "-master", outputFolder)
   Return ..LoadPackage(packageFolder, url, 1)