Bug #49515 for Tk: Subwidget called on undefined value, Tk::Widget v4.033/4, line 779

Tue Sep 08 08:18:32 2009 michael.parker [...] st.com - Ticket created

CC:	<slaven [...] rezic.de>
Subject:	Subwidget called on undefined value, Tk::Widget v4.033/4, line 779
Date:	Tue, 8 Sep 2009 13:17:54 +0100
To:	<bug-Tk [...] rt.cpan.org>
From:	Michael PARKER <michael.parker [...] st.com>

Hi, A bug in v4.033/34 of Tk::Widget results in an undefined value not being caught before an attempt is made to call the Subwidget method on it: --- Can't call method "Subwidget" on an undefined value at /pd/perl/5.8.8/lib/site_perl/5.8.8/x86_64-linux/Tk/Widget.pm line 779. results from: Widget.pm:779> my $prototype = $Tk::___tk_set_palette->Subwidget($w->Class) || undef; --- It looks as if '$Tk::___tk_set_palette' is undefined (for whatever reason) and no check is made prior to the Subwidget method call attempt. Reverting to v4.030 of Tk::Widget solves the issue. I'm using v804.028_501 of Tk and Perl v5.8.8. Cheers, Mike

Tue Sep 08 08:35:50 2009 michael.parker [...] st.com - Correspondence added

CC:	<slaven [...] rezic.de>
Subject:	[rt.cpan.org #49515] AutoReply: Subwidget called on undefined value, Tk::Widget v4.033/4, line 779
Date:	Tue, 8 Sep 2009 13:35:24 +0100
To:	<bug-Tk [...] rt.cpan.org>
From:	Michael PARKER <michael.parker [...] st.com>

Changing line 779 of Widget.pm to the following appears to resolve the issue: my $prototype = (defined $Tk::___tk_set_palette ? $Tk::___tk_set_palette->Subwidget($w->Class) || undef : undef);

Fri Oct 16 13:59:08 2009 SREZIC [...] cpan.org - Correspondence added

On Tue Sep 08 08:35:50 2009, michael.parker@st.com wrote: Show quoted text

> Changing line 779 of Widget.pm to the following appears to resolve the > issue: > > my $prototype = (defined $Tk::___tk_set_palette ? > $Tk::___tk_set_palette->Subwidget($w->Class) || undef : undef); >

Thanks. This is patched in https://svn.perl.org/modules/Tk/trunk@13393 Regards, Slaven

Fri Oct 16 13:59:09 2009 The RT System itself - Status changed from 'new' to 'open'

Fri Oct 16 13:59:10 2009 SREZIC [...] cpan.org - Status changed from 'open' to 'patched'

Tue Feb 02 07:01:33 2010 SREZIC [...] cpan.org - Status changed from 'patched' to 'resolved'

Tue Feb 02 07:01:39 2010 SREZIC [...] cpan.org - Fixed in 804.028_502 added