Re: Perl jumps to END logic after fileno (Win32)

From the debugging it seems Wx is involved. What other modules are involved?

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re: Perl jumps to END logic after fileno (Win32) Download Code

Replies are listed 'Best First'.
Re^2: Perl jumps to END logic after fileno (Win32) by dchidelf (Novice) on Aug 04, 2017 at 13:12 UTC
This should be everything. Note: my version of Thread::Queue isn't the offical 3.09 version. It includes a patch because, at the time, Jerry hadn't included my fix for queue limits into a released version yet. `use Sys::Hostname; use File::Temp; use File::Basename; use File::Path qw/remove_tree/; use Time::Local; use Getopt::Std; use File::Copy qw(copy); use Cwd; use threads; use threads::shared; use Thread::Queue 3.09; # need limit functionality use IO::Select; use Time::HiRes; use Symbol 'gensym'; use POSIX ":sys_wait_h"; # only necessary for Unix, but available in W +in32 use URI::Escape qw(uri_escape uri_unescape); use IO::Socket::INET; require Wx; require Wx::Event;` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Perl jumps to END logic after fileno (Win32)
by dchidelf (Novice) on Aug 04, 2017 at 13:12 UTC

use Sys::Hostname;
use File::Temp;
use File::Basename;
use File::Path qw/remove_tree/;
use Time::Local;
use Getopt::Std;
use File::Copy qw(copy);
use Cwd;
use threads;
use threads::shared;
use Thread::Queue 3.09; # need limit functionality
use IO::Select;
use Time::HiRes;
use Symbol 'gensym';
use POSIX ":sys_wait_h"; # only necessary for Unix, but available in W
+in32
use URI::Escape qw(uri_escape uri_unescape);
use IO::Socket::INET;

require Wx;
require Wx::Event;
[download]

[reply]
[d/l]