Select Code to Download

Select or download this

if($Config{5005threads}) { .. }
elsif($Config{ithreads}) { .. }

Select or download this

my $CONNECT = 0;
..
require Thread::Queue;
threads::shared::share($CONNECT);

Select or download this

..
require Thread::Queue;
our $CONNECT : shared = 0;

Select or download this

Argument to share needs to be passed as ref
at telnetclient.perl line 103.

Select or download this

require threads;
import threads;
...
import Thread::Queue;
import threads::shared;
share(\$CONNECT);

Select or download this

#6  0x40350460 in Perl_ithread_destruct ()
#7  0x403505a4 in ithread_mg_free ()
...
#9  0x403515fa in Perl_ithread_DESTROY ()
#10 0x40352d41 in XS_threads_DESTROY ()
#11 0x4009d71b in Perl_pp_entersub ()

Select or download this

if($Config{use5005threads})
{
...
    debug("No Threads\n");
    $conn = start_connection(0);
}