gnucash-on-windows master: Bug 799365 - strawberry perl releases moved to github.

[John Ralls]

Updated	 via  https://github.com/Gnucash/gnucash-on-windows/commit/b10341d9 (commit)
	from  https://github.com/Gnucash/gnucash-on-windows/commit/6b09845f (commit)



commit b10341d92090fba8c29bd0f799cd6a29d24abd3f
Author: John Ralls <jralls at ceridwen.us>
Date:   Fri Jul 5 15:04:22 2024 -0700

    Bug 799365 - strawberry perl releases moved to github.
    
    Unfortunately the script gets a permission denied from MSXML2 when
    trying to download from github so reverting to 5.32.1.1.

diff --git a/extra_dist/getperl.vbs b/extra_dist/getperl.vbs
index b586365..978dfd9 100644
--- a/extra_dist/getperl.vbs
+++ b/extra_dist/getperl.vbs
@@ -9,7 +9,10 @@ Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
 Dim tempFolder: tempFolder = fso.GetSpecialFolder(TemporaryFolder)
 
 strHDLocation = Wscript.Arguments.Item(0)
-strVersion = "5.38.2.2"
+' Later versions are provided at github instead of strawberryperl.com
+' and this script gets a Permission Denied error from MSXML2 when
+' trying to access them.
+strVersion = "5.32.1.1"
 
 ' Set your settings
     strFileURL    = "https://strawberryperl.com/download/" & strVersion & "/strawberry-perl-" & strVersion & "-32bit.msi"
@@ -28,7 +31,7 @@ If objXMLHTTP.Status = 200 Then
    objADOStream.Open
    objADOStream.Type = 1 'adTypeBinary
 
-   objADOStream.Write objXMLHTTP.ResponseBody
+   objADOStream.Write objXMLHTTP.Responody
    objADOStream.Position = 0    'Set the stream position to the start
 
    Set objFSO = Createobject("Scripting.FileSystemObject")



Summary of changes:
 extra_dist/getperl.vbs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)