[Bug 35794] New: iTunes 7 installer aborts early (failure to find builtin 'RegExp' class)
https://bugs.winehq.org/show_bug.cgi?id=35794 Bug ID: 35794 Summary: iTunes 7 installer aborts early (failure to find builtin 'RegExp' class) Product: Wine Version: 1.7.14 Hardware: x86 OS: Linux Status: NEW Severity: normal Priority: P2 Component: vbscript Assignee: wine-bugs(a)winehq.org Reporter: focht(a)gmx.net Hello folks, continuation of bug 34154 --- snip --- $ WINEDEBUG=+tid,+seh,+relay,+vbscript,+ole,+variant wine ./iTunesSetup7.exe
log.txt 2>&1 ... 002f:trace:vbscript:disp_get_id using IDispatch 002f:trace:ole:ITypeInfo_fnGetIDsOfNames (0x1daf30) Name L"CompareVersions" cNames 1 ... 002f:warn:ole:ITypeInfo_fnGetIDsOfNames no names found 002f:fixme:msi:AutomationObject_GetIDsOfNames Unknown member L"CompareVersions", clsid {000c109e-0000-0000-c000-000000000046} ... 002f:trace:vbscript:interp_errmode 1 002f:trace:vbscript:interp_new L"RegExp" 002f:fixme:vbscript:interp_new Class L"RegExp" not found 002f:fixme:vbscript:exec_script Failed 80004005 in resume next mode ... 002d:err:msi:ITERATE_Actions Execution halted, action L"iTunesLaunchConditions" returned 1603 --- snip ---
Relevant VBScript code snippet: --- snip --- ... Sub iTunesLaunchConditions PreventDowngrade DetectGEARDriverSetDeletion CheckUnsupportediPodSoftware End Sub Function CompareVersions(sVersion1, sVersion2) Dim rgExpVersionComponents Dim oMatches1, oMatches2 Dim iVersion1, iVersion2 Dim i On Error Resume Next Set rgExpVersionComponents = New RegExp rgExpVersionComponents.Pattern = "(\d+)\.?" rgExpVersionComponents.Global= True Set oMatches1 = rgExpVersionComponents.Execute(sVersion1) Set oMatches2 = rgExpVersionComponents.Execute(sVersion2) i = 0 Do Err.Clear iVersion1 = 0 iVersion2 = 0 iVersion1 = CInt(oMatches1(i).SubMatches(0)) iVersion2 = CInt(oMatches2(i).SubMatches(0)) If iVersion1 < iVersion2 Then CompareVersions = -1 Exit Function ElseIf iVersion1 > iVersion2 Then CompareVersions = 1 Exit Function End If i = i + 1 Loop While Err.number = 0 CompareVersions = 0 End Function Sub PreventDowngrade Const msiInstallStateAdvertised = 1 Dim Installer Dim RelatedProducts Dim UpgradeCode Dim ProductCode Dim ProductVersion Dim ProductVersionMax Dim ProductVersionFound On Error Resume Next Set Installer = Session.Installer ProductVersion = Session.Property("ProductVersion") ProductVersionMax = "" UpgradeCode = Session.Property("UpgradeCode") Set RelatedProducts = Installer.RelatedProducts(UpgradeCode) For Each ProductCode in RelatedProducts If Installer.ProductState(ProductCode) = msiInstallStateAdvertised Then ProductVersionFound = Installer.ProductInfo(ProductCode, "Version") Else Err.Clear : ProductVersionFound = Installer.ProductInfo(ProductCode, "VersionString") If Err.number <> 0 Then ProductVersionFound = "" End If If CompareVersions(ProductVersionFound, ProductVersionMax) > 0 Then ProductVersionMax = ProductVersionFound Next If CompareVersions(ProductVersionMax, ProductVersion) > 0 Then Session.Property("BNEWERITUNESISINSTALLED") = "1" Else Session.Property("BNEWERITUNESISINSTALLED") = "" End If End Sub ... --- snip --- -> 'Set rgExpVersionComponents = New RegExp' $ sha1sum iTunesSetup7.exe 5cdc86b2edb1411b9a022f05b1bfbe858fbcf901 iTunesSetup7.exe $ du -sh iTunesSetup7.exe 35M iTunesSetup7.exe $ wine --version wine-1.7.14-126-g2bb1059 Regards -- Do not reply to this email, post in Bugzilla using the above URL to reply. You are receiving this mail because: You are watching all bug changes.
https://bugs.winehq.org/show_bug.cgi?id=35794 Anastasius Focht <focht(a)gmx.net> changed: What |Removed |Added ---------------------------------------------------------------------------- Keywords| |download, Installer URL| |http://www.oldapps.com/itun | |es.php?old_itunes=15?downlo | |ad&ModPagespeed=noscript -- Do not reply to this email, post in Bugzilla using the above URL to reply. You are receiving this mail because: You are watching all bug changes.
https://bugs.winehq.org/show_bug.cgi?id=35794 Anastasius Focht <focht(a)gmx.net> changed: What |Removed |Added ---------------------------------------------------------------------------- Fixed by SHA1| |f123556f0701f5c1c36e24d4de7 | |4886e2deeb0a8 Status|NEW |RESOLVED Resolution|--- |FIXED --- Comment #1 from Anastasius Focht <focht(a)gmx.net> --- Hello folks, this is fixed by commit http://source.winehq.org/git/wine.git/commitdiff/f123556f0701f5c1c36e24d4de7... Thanks Jacek Regards -- Do not reply to this email, post in Bugzilla using the above URL to reply. You are receiving this mail because: You are watching all bug changes.
https://bugs.winehq.org/show_bug.cgi?id=35794 Alexandre Julliard <julliard(a)winehq.org> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|RESOLVED |CLOSED --- Comment #2 from Alexandre Julliard <julliard(a)winehq.org> --- Closing bugs fixed in 1.7.15. -- Do not reply to this email, post in Bugzilla using the above URL to reply. You are receiving this mail because: You are watching all bug changes.
https://bugs.winehq.org/show_bug.cgi?id=35794 Anastasius Focht <focht(a)gmx.net> changed: What |Removed |Added ---------------------------------------------------------------------------- URL|http://www.oldapps.com/itun |https://web.archive.org/web |es.php?old_itunes=15?downlo |/20170926181542/http://appl |ad&ModPagespeed=noscript |dnld.apple.com/iTunes7/Win/ | |061-2768.20060926.tnwN1/iTu | |nesSetup.exe --- Comment #3 from Anastasius Focht <focht(a)gmx.net> --- Hello folks, adding stable download link via Internet Archive for documentation. https://www.virustotal.com/gui/file/dcfa03446b895b3cd850dcef737489a9df346e05... $ sha1sum iTunesSetup.exe 9b6800b490c550d02dc590516b5718da0d3c3f46 iTunesSetup.exe $ du -sh iTunesSetup.exe 35M iTunesSetup.exe Regards -- Do not reply to this email, post in Bugzilla using the above URL to reply. You are receiving this mail because: You are watching all bug changes.
participants (2)
-
wine-bugs@winehq.org -
WineHQ Bugzilla