This is the mail archive of the cygwin mailing list for the Cygwin project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

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


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
 

Attachment: cygcheck_20090323.out
Description: cygcheck_20090323.out

--
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/

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]