Bug #35431 for Devel-ptkdb: bus error using perl -d:ptkdb on SunOS

I am using 1.1091 Devel-ptkdb with Perl/Tk on Sun 5.7 with Perl 5.8.7 and Tk '804.027'. I am getting a bus error immediately when launching: perl -d:ptkdb /home/blueprint/jbauer/latest/bin/HelloWorldBusError.pl using the "Hello World" program example from ticket 2689 (also below) but this works fine on Linux box Note I can workaround the issue by commenting line 2010 of ptkdb.pm: $mw->update; but not sure the implications of doing this. Here again is the "Hello World" source code: HelloWorldBusError.pl: #!/bin/perl use strict; use integer; use Tk; use OwnModule; sub doit() { OwnModule::callExit(0); } my $main = new MainWindow; $main->Label(-text => 'Hello World')->pack; $main->Button(-text => 'Quit', -command => sub{print "goodbye world!\n"; doit();})->pack; MainLoop; OwnModule.pm: #!/usr/bin/perl -w package OwnModule; use strict; use integer; sub callExit($) { my $rc = shift(); exit($rc); } 1; version info: ptkdb 1.1091 Tk 804.027 Perl 5.8.7 ./Tk.pm:$Tk::version = '8.4'; ./Tk.pm:$Tk::VERSION = '804.027'; uname -a SunOS databahn 5.7 Generic_106541-08 sun4u sparc SUNW,Ultra-80 Complete Tk pm version information info sun4-solaris-multi-64int]$ find . -type f -name '*.pm' | fgrep Tk | xargs fgrep -i version | fgrep -v 'use vars' | cut -d# -f1 | grep ':.*[0-9]' | sort -u ./Tk/Adjuster.pm:$VERSION = '4.007'; ./Tk/After.pm:$VERSION = '4.007'; ./Tk/Animation.pm:$VERSION = '4.006'; ./Tk/Balloon.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Bitmap.pm:$VERSION = '4.004'; ./Tk/BrowseEntry.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Button.pm:$VERSION = '4.008'; ./Tk/Canvas.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Checkbutton.pm:$VERSION = '4.006'; ./Tk/Clipboard.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/CmdLine.pm:$VERSION = '4.006'; ./Tk/ColorEditor.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Compound.pm:$VERSION = '4.004'; ./Tk/Config.pm:$VERSION = '804.027'; ./Tk/Configure.pm:$VERSION = '4.008'; ./Tk/demos/LabEnLabRad.pm:$VERSION = '4.004'; ./Tk/demos/widget_lib/Ball.pm:$VERSION = '4.004'; ./Tk/demos/widget_lib/Plot.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/demos/widget_lib/WidgetDemo.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Derived.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/DialogBox.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Dialog.pm:$VERSION = '4.004'; ./Tk/Dirlist.pm:$VERSION = '4.004'; ./Tk/DirTree.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/DragDrop/Common.pm:$VERSION = '4.004'; ./Tk/DragDrop/LocalDrop.pm:$VERSION = '4.004'; ./Tk/DragDrop.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/DragDrop/Rect.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/DragDrop/SunConst.pm:$VERSION = '4.004'; ./Tk/DragDrop/SunDrop.pm: if ($version != 0) ./Tk/DragDrop/SunDrop.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/DragDrop/SunSite.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/DragDrop/XDNDDrop.pm:sub XDND_PROTOCOL_VERSION () { 4 } ./Tk/DragDrop/XDNDDrop.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/DragDrop/XDNDSite.pm:sub XDND_PROTOCOL_VERSION () { 4 } ./Tk/DragDrop/XDNDSite.pm: $t->property('set','XdndAware','ATOM',32,[XDND_PROTOCOL_VERSION],$wrappe r); ./Tk/DragDrop/XDNDSite.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/DropSite.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/DummyEncode.pm:$VERSION = '4.007'; ./Tk/English.pm:$VERSION = '4.006'; ./Tk/Entry.pm:$VERSION = sprintf '4.%03d',q$Revision: ./Tk/ErrorDialog.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Event/IO.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Event.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Event.pm:$XS_VERSION = '804.027'; ./Tk/FBox.pm: if ($Tk::VERSION < 804) { ./Tk/FBox.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/FileSelect.pm: if ($Tk::VERSION < 804) { ./Tk/FileSelect.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/FloatEntry.pm:$VERSION = '4.004'; ./Tk/Font.pm:$VERSION = '4.004'; ./Tk/Frame.pm:$VERSION = '4.010'; ./Tk/HList.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/IconList.pm:$VERSION = '4.007'; ./Tk/Image.pm:$VERSION = '4.011'; ./Tk/InputO.pm:$VERSION = '4.004'; ./Tk/install.pm:$VERSION = '4.004'; ./Tk/IO.pm:$VERSION = '4.004'; ./Tk/ItemStyle.pm:$VERSION = '4.004'; ./Tk/JPEG.pm:This version also works with Tk804 series. ./Tk/JPEG.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Labelframe.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Label.pm:$VERSION = '4.006'; ./Tk/LabEntry.pm:$VERSION = '4.006'; ./Tk/LabFrame.pm:$VERSION = '4.010'; ./Tk/LabRadio.pm:$VERSION = '4.004'; ./Tk/Listbox.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/MainWindow.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/MakeDepend.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Menubar.pm:$VERSION = '4.006'; ./Tk/Menubutton.pm:$VERSION = '4.004'; ./Tk/Menu/Item.pm:$VERSION = '4.004'; ./Tk/Menu.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Message.pm:$VERSION = '4.006'; ./Tk/MMtry.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/MMutil.pm: s/(POD2MAN_EXE.*pod2man.*)/$1 --center "perl\/Tk Documentation" --release "Tk\$(VERSION)"/; ./Tk/MMutil.pm: s/(POD2MAN_EXE.*pod2man.*)/$1 -center "perl\/Tk Documentation" -release "Tk\$(VERSION)"/; ./Tk/MMutil.pm: s/(POD2MAN_EXE.*pod2man.*)/$1 -center \\"perl\/Tk Documentation\\" -release \\"Tk\$(VERSION)\\"/; ./Tk/MMutil.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Mwm.pm:$VERSION = '4.004'; ./Tk/NBFrame.pm:$VERSION = '4.004'; ./Tk/NoteBook.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Optionmenu.pm:$VERSION = '4.013'; ./Tk/Panedwindow.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Pane.pm:$VERSION = '4.007'; ./Tk/Photo.pm:$VERSION = sprintf '4.%03d', 4+q$Revision: ./Tk/Pixmap.pm:$VERSION = '4.004'; ./Tk.pm:$Tk::VERSION = '804.027'; ./Tk.pm:$Tk::version = '8.4'; ./Tk/PNG.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Pretty.pm:$VERSION = '4.006'; ./Tk/ProgressBar.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Radiobutton.pm:$VERSION = '4.006'; ./Tk/Region.pm:$VERSION = '4.006'; ./Tk/ReindexedROText.pm:$VERSION = '4.004'; ./Tk/ReindexedText.pm:$VERSION = '4.004'; ./Tk/Reindex.pm:$VERSION = '4.004'; ./Tk/ROText.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Scale.pm:$VERSION = '4.004'; ./Tk/Scrollbar.pm:$VERSION = '4.010'; ./Tk/Spinbox.pm:$VERSION = sprintf '4.%03d',q$Revision: ./Tk/Stats.pm:$VERSION = '4.004'; ./Tk/Submethods.pm:$VERSION = '4.004'; ./Tk/Table.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/TextEdit.pm:$VERSION = '4.004'; ./Tk/TextList.pm:$VERSION = '4.005'; ./Tk/Text.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Text/Tag.pm:$VERSION = '4.004'; ./Tk/TextUndo.pm:$VERSION = '4.013'; ./Tk/Tiler.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/TixGrid.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/TList.pm:$VERSION = '4.006'; ./Tk/Toplevel.pm:$VERSION = '4.006'; ./Tk/Trace.pm: . Version 1.0, for Tk800.022. ./Tk/Trace.pm: . Version 1.1, for Tk804.025, add support for multiple traces of the same ./Tk/Trace.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/Tree.pm:$VERSION = '4.005'; ./Tk/Widget.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/widgets.pm:$VERSION = '4.004'; ./Tk/WinPhoto.pm:$VERSION = '4.004'; ./Tk/Wm.pm:$VERSION = sprintf '4.%03d', q$Revision: ./Tk/X11Font.pm:$VERSION = '4.007'; ./Tk/Xlib.pm:$VERSION = '4.004'; ./Tk/X.pm:$VERSION = '4.004'; ./Tk/Xrm.pm:$VERSION = '4.004'; Joseph Bauer jbauer@denali.com Staff Research and Development Engineer