Re^2: Script using Tk and LibXML crashing (Devel::Trace)

[misczol]

Thank you for your answer. Here's what I got, but I don't really know what to make of this. Tk library seems to be the problem, and my google searches indicate that this has something to do with threads it's using, but I'm still lost

>> C:/Strawberry/perl/site/lib/Tk/Button.pm:86:  my $w = shift;
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:87:  $w->configure('-state
+'=>'normal') if ($w->cget('-state') ne 'disabled');
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:90:  if (exists $w->{__rel
+ief__})
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:92:    if (exists $w->{__p
+relief__} &&
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:97:    delete $w->{__relie
+f__};
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:98:    delete $w->{__preli
+ef__};
>> C:/Strawberry/perl/site/lib/Tk/Button.pm:100:  undef $Tk::window;
>> C:/Strawberry/perl/site/lib/Tk.pm:424:      DoOneEvent(0);
>> C:/Strawberry/perl/site/lib/Tk.pm:424:      DoOneEvent(0);
Free to wrong pool 369f80 not 29dd8a50 at C:/Strawberry/perl/site/lib/
+Tk.pm line 424.

[Anonymous Monk]

hmm,

I'd say kick that up to rt://Tk

Does it happen if you avoid getOpenFile? Like so

Read more... (1241 Bytes)

[misczol]

Yes, the same thing happens. I'm getting the same error.

>> C:/Strawberry/perl/site/lib/XML/LibXML.pm:790:   return $dom;
>> test2.pl:27:     $$xpc = XML::LibXML::XPathContext->new($dom);
>> test2.pl:28:     print "XML imported\n";
XML imported
>> C:/Strawberry/perl/site/lib/Tk.pm:424:      DoOneEvent(0);
>> C:/Strawberry/perl/site/lib/Tk.pm:424:      DoOneEvent(0);
Free to wrong pool 31a960 not 2020202020200a at C:/Strawberry/perl/sit
+e/lib/Tk.pm line 424.