I am trying to troubleshoot an issue with my perl script (running on windows 7) where it terminates with no discernable error or warning. It is consistently terminating in the midst of a fileno command. I'm not sure if the fileno is throwing a signal that causes the jump to END or what.
for my $h (@handles) { my $fd = fileno $h; if (defined $fd && $fd >= 0) {
This is some debugging I captured with perl -d
0 /ProcOpen.pm:62: if (! defined $ProcOpen::isWindows) { 0 /ProcOpen.pm:71: return $ProcOpen::isWindows; 0 /ProcOpen.pm:94: my $fd = fileno $fh; 0 C:/perl/site/lib/Wx.pm:154: UnsetConstants() if defined &UnsetCons +tants; 0 C:/perl/site/lib/Wx.pm:120: END { unload_dll() }
The UnsetConstants() is the start of the Wx.pm END{} cleanup. Any assistance on what to look for would be very helpful.
Strawberry Perl 5.24.0 on Win32
In reply to Perl jumps to END logic after fileno (Win32) by dchidelf
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |