Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^7: PANIC: underlying join failed threded tcp server

by BrowserUk (Pope)
on Oct 18, 2012 at 23:56 UTC ( #999832=note: print w/ replies, xml ) Need Help??


in reply to Re^6: PANIC: underlying join failed threded tcp server
in thread PANIC: underlying join failed threded tcp server

Sight of the changes made to the OP code and threads.xs would make interpreting that output a possibility :)

Also, what OS/version; Perl/version; threads/version?


With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

RIP Neil Armstrong


Comment on Re^7: PANIC: underlying join failed threded tcp server
Re^8: PANIC: underlying join failed threded tcp server
by rmahin (Beadle) on Oct 19, 2012 at 00:34 UTC
    Changes made to threads.xs
    /* Join the thread */ #ifdef WIN32 printf( "thread handle:%x thread-id: %dx\n", thread->handle, G +etThreadId( thread->handle ) ); if (WaitForSingleObject(thread->handle, INFINITE) != WAIT_OBJE +CT_0) { printf("GetLastError output: '%d'", GetLastError()); /* Timeout/abandonment unexpected here; check $^E */ Perl_croak(aTHX_ "PANIC: underlying join failed"); }; #else if ((rc_join = pthread_join(thread->thr, &retval)) != 0) { /* In progress/deadlock/unknown unexpected here; check $! +*/ errno = rc_join; Perl_croak(aTHX_ "PANIC: underlying join failed"); }; #endif

    Changes made to rxd.pl
    # wait to join and delete from hash foreach my $join (threads->list(threads::joinable)) { my $val = eval{ $join->join() } or die "Join failed with '$!' +: '$^E'"; tprint("_handle() output: " . $join->_handle()); #my $val = $join->join(); # tprint("Deleting fd- $val"); delete $FDcache{$val}; }

    OS/Version: Microsoft Windows Server 2003 R2 Enterprise x64 Edition Service Pack 2 And this is a VM if that makes any difference.

    Perl/version: Active perl v5.16.1

    C:\>perl -v This is perl 5, version 16, subversion 1 (v5.16.1) built for MSWin32-x +64-multi-t hread (with 1 registered patch, see perl -V for more detail)

    threads/version: threads-1.86


    Let me know if you need anything else!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://999832]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (6)
As of 2014-12-20 14:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (96 votes), past polls