Bug #71718 for Tk: Tk won't install in Strawberry Perl 5.12.3.0

Downloaded Tk 804.031 Unpacked to C:\strawberry_perl\perl\lib\Tk-804.031 Opened a `cmd` to the directory. `perl Makefile.PL` #worked `dmake` #worked `dmake test` #failed (I tried running as Admin and I got the same stuff. t\coloreditor.t .............. ok t\create.t ................... # Test 270 got: "bad cursor spec \"cursor\" at t\\create.t line 160.\n" (t\create.t at line 168 fail #18) # Expected: "" (Cannot re-configure TList) # t\create.t line 168 is: ok($@,"","Cannot re-configure $class"); Tk_FreeCursor received unknown cursor argument This application has requested the Runtime to terminate it in an unusual way. Please contact the application's support team for more information. #THIS IS WHERE THE WINDOWS 8 "Perl Interpreter has stopped working" window shows Dubious, test returned 255 (wstat 65280, 0xff00) Failed 273/543 subtests t\cursor.t ................... ok t\dash.t ..................... ok t\dialogbox.t ................ ok t\dirtree.t .................. ok t\entry.t .................... ok t\errordialog.t .............. ok XS_Tk__Callback_Call error:Intentional error. XS_Tk__Callback_Call error:Intentional error. Background Error: window ".dialog" was deleted before its visibility changed at C:\strawberry_perl\perl\lib\Tk-804.031\blib\lib/Tk/Widget.pm line 1000. Background Error: window ".dialog" was deleted before its visibility changed at C:\strawberry_perl\perl\lib\Tk-804.031\blib\lib/Tk/Widget.pm line 1000. t\exefiles.t ................. skipped: not on Windows (because of fork, waitpid...) t\fbox.t ..................... ok t\fileevent.t ................ ok t\fileevent2.t ............... ok t\fileselect.t ............... ok Font {Courier New} 8 still in cache. t\font.t ..................... ok t\fork.t ..................... skipped: No real fork on Windows-like systems t\geomgr.t ................... ok t\iso8859-1.t ................ ok t\itemstyle.t ................ ok t\JP.t ....................... ok t\KR.t ....................... ok t\leak.t ..................... skipped: need Devel::Leak t\list.t ..................... ok t\listbox.t .................. ok t\listvar.t .................. ok t\magic.t .................... ok t\mega.t ..................... ok t\msgbox.t ................... ok t\mwm.t ...................... skipped: Tk::Mwm not built on MSWin32 t\objglue.t .................. ok t\optmenu.t .................. ok t\photo.t .................... # Failed test 'No error loading t/test.png as png' # at t\photo.t line 45. # got: 'invalid after png_start_read_image or png_read_update_info at C:\strawberry_perl\perl\lib\Tk-804.031\blib\lib/Tk/Image.pm line 21. # ' # expected: '' # Failed test 'Loading t/test.png (png)' # at t\photo.t line 46. invalid after png_start_read_image or png_read_update_info at C:\strawberry_perl\perl\lib\Tk-804.031\blib\lib/Tk/Image.pm line 21. # Looks like you planned 105 tests but ran 7. # Looks like you failed 2 tests of 7 run. # Looks like your test exited with 25 just after 7. Dubious, test returned 25 (wstat 6400, 0x1900) Failed 100/105 subtests t\pixmap.t ................... ok t\progbar.t .................. ok t\property.t ................. skipped: property only work on X11 t\regexp.t ................... ok t\Require.t .................. ok t\rotext.t ................... ok t\slaves.t ................... ok t\table.t .................... ok Stack moved 2f0e218 => 2f0e220 t\text.t ..................... ok untie attempted while 3 inner references still exist at t\text2.t line 59. untie attempted while 10 inner references still exist at t\text2.t line 70. t\text2.t .................... ok t\textundo.t ................. ok t\Tkxs.t ..................... ok t\Trace.t .................... ok t\trace1.t ................... ok t\unicode.t .................. ok t\widget.t ................... ok t\wm-tcl.t ................... ok # Start update 2 # . update 0.007 2 # .label update 0.015 1 # Start Popup 2 # .toplevel Popup 0.00763 2 # .toplevel.label Popup 0.00894 1 # Start withdraw 0 # Start Popup Again 2 # .toplevel Popup Again 0.00386 2 # .toplevel.label Popup Again 0.00508 1 # Start destroy 0 t\wm-time.t .................. ok t\wm.t ....................... ok t\X.t ........................ ok t\zzHList.t .................. ok t\zzPhoto.t .................. ok t\zzScrolled.t ............... ok t\zzText.t ................... ok t\zzTixGrid.t ................ Tk_FreeCursor called before Tk_GetCursor This application has requested the Runtime to terminate it in an unusual way. Please contact the application's support team for more information. #THIS IS WHERE THE WINDOWS 8 "Perl Interpreter has stopped working" window shows Dubious, test returned 255 (wstat 65280, 0xff00) All 33 subtests passed Test Summary Report ------------------- t\after.t (Wstat: 0 Tests: 6 Failed: 0) TODO passed: 1-6 t\create.t (Wstat: 65280 Tests: 271 Failed: 1) Failed test: 270 Non-zero exit status: 255 Parse errors: Bad plan. You planned 543 tests but ran 271. t\listbox.t (Wstat: 0 Tests: 537 Failed: 0) TODO passed: 320-322, 328 t\photo.t (Wstat: 6400 Tests: 7 Failed: 2) Failed tests: 5-6 Non-zero exit status: 25 Parse errors: Bad plan. You planned 105 tests but ran 7. t\text.t (Wstat: 0 Tests: 415 Failed: 0) TODO passed: 121 t\wm-tcl.t (Wstat: 0 Tests: 315 Failed: 0) TODO passed: 68 t\zzScrolled.t (Wstat: 0 Tests: 94 Failed: 0) TODO passed: 52, 66, 80, 94 t\zzTixGrid.t (Wstat: 65280 Tests: 33 Failed: 0) Non-zero exit status: 255 Files=72, Tests=3879, 118 wallclock secs ( 1.14 usr + 0.13 sys = 1.27 CPU) Result: FAIL Failed 3/72 test programs. 3/3879 subtests failed. dmake.exe: Warning: -- Target [pTk\libpTk.a] was made but the time stamp has not been updated. dmake.exe: Error code 255, while making 'test_dynamic' I added the comment "#THIS IS WHERE THE WINDOWS 8 'Perl Interpreter has stopped working' window shows" appropriately. Once I exit the window it goes to the next test. This happened twice.

pTk\tixTList.h: replace "Cursor cursor;" with "Tk_Cursor cursor;" pTk\tixGrid.h: replace "Cursor cursor;" with "Tk_Cursor cursor;"