Perl-Tk has "Use of uninitialized value" warning in Tk::After

Thrall, Bryan bryan.thrall@flightsafety.com
Mon Mar 23 18:26:00 GMT 2009


There seems to be a problem with either perl-Tk or perl 5.10 on Cygwin;
the widget command provided by the former displays a bunch of the
following warnings:

Use of uninitialized value $id in hash element at
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/After.pm line 39.
Use of uninitialized value $id in delete at
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/After.pm line 87.

The only mention of this problem I've found is here:

http://stackoverflow.com/questions/318793/what-do-these-perl-tk-errors-f
rom-tkafter-mean/319086

Which suggests it is Cygwin-related. I do have the Cygwin X server
running. The warning seems to be related to not having the Tk window
menu show up; when we run in the Perl debugger, the warning doesn't
happen and the menu shows up.

This came up for us because our own app prints out the line 39 warning.
It worked fine on an earlier version of perl (5.8) and our own build of
perl-Tk (from before Cygwin had its own packaging of it).

The perl backtrace of the warning (from our app, with the suggested 'use
Carp; $SIG{__WARN__} = ...' change) is:

Use of uninitialized value $id in hash element at
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/After.pm line 39.
 at vlogview line 15
        main::__ANON__('Use of uninitialized value $id in hash element
at /usr/lib/pe...') called at
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/After.pm line 39
        Tk::After::submit('Tk::After=ARRAY(0x1672168)') called at
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/After.pm line 57
        Tk::After::new('Tk::After', 'MainWindow=HASH(0x1667ab8)',
'idle', 'once', 'Tk::Callback=ARRAY(0x1671f40)') called at
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Widget.pm line 501
        Tk::Widget::afterIdle('MainWindow=HASH(0x1667ab8)',
'Tk::Callback=ARRAY(0x1671f40)') called at
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Derived.pm line 195
        Tk::Derived::Configured('MainWindow=HASH(0x1667ab8)',
'HASH(0x14b6488)', 'HASH(0x14b64e8)') called at
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Derived.pm line 310
        Tk::Derived::configure('MainWindow=HASH(0x1667ab8)', '-title',
'Vlogview', '-background', '#d9d9d9', '-foreground', 'Black') called at
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/MainWindow.pm line 61
        eval {...} called at
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/MainWindow.pm line 61
        Tk::MainWindow::new('MainWindow') called at vlogview line 54

cygcheck -svr attached.

Any suggestions for a fix?
--
Bryan Thrall
FlightSafety International
bryan.thrall@flightsafety.com
 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: cygcheck_20090323.out
Type: application/octet-stream
Size: 54399 bytes
Desc: cygcheck_20090323.out
URL: <http://cygwin.com/pipermail/cygwin/attachments/20090323/1303fc1a/attachment.obj>
-------------- next part --------------
--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/


More information about the Cygwin mailing list