Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^2: Socket hang. (Windows or Perl? Solutions?)

by OverlordQ (Hermit)
on Apr 05, 2011 at 22:21 UTC ( [id://897623] : note . print w/replies, xml ) Need Help??


in reply to Re: Socket hang. (Windows or Perl? Solutions?)
in thread Socket hang. (Windows or Perl? Solutions?) (Updated)

Ditto on 5.10.1 on debian sid x64.
(gdb) run /tmp/blah.pl Starting program: /usr/bin/debugperl /tmp/blah.pl [Thread debugging using libthread_db enabled] Using minimum thread stack size of 16384 at /usr/lib/perl/5.10/threads +.pm line 49. [New Thread 0xb7c84b70 (LWP 10226)] Program received signal SIGSEGV, Segmentation fault. [Switching to Thread 0xb7c84b70 (LWP 10226)] Perl_sv_gets (my_perl=0x83efb18, sv=0x84f6bac, fp=0x840afcc, append=0) + at sv.c:6620 6620 sv.c: No such file or directory. in sv.c (gdb) bt #0 Perl_sv_gets (my_perl=0x83efb18, sv=0x84f6bac, fp=0x840afcc, appen +d=0) at sv.c:6620 #1 0x080949d0 in Perl_filter_read (my_perl=0x83efb18, idx=0, buf_sv=0 +x84f6bac, maxlen=0) at toke.c:2955 #2 0x08094dcd in S_filter_gets (my_perl=<value optimized out>, sv=0x8 +4f6bac, fp=<value optimized out>, append=0) at toke.c:2997 #3 0x080a34ec in Perl_yylex (my_perl=0x83efb18) at toke.c:3757 #4 0x080b6d36 in Perl_yyparse (my_perl=0x83efb18) at perly.c:409 #5 0x08179991 in S_doeval (my_perl=0x83efb18, gimme=0, startop=0x0, o +utside=0x0, seq=886) at pp_ctl.c:2981 #6 0x0819030c in Perl_pp_require (my_perl=0x83efb18) at pp_ctl.c:3573 #7 0x080e91a8 in Perl_runops_debug (my_perl=0x83efb18) at dump.c:1968 #8 0x0807fde2 in Perl_call_sv (my_perl=0x83efb18, sv=0x84f676c, flags +=4) at perl.c:2717 #9 0xb7ca26aa in S_ithread_run (arg=0x82c0220) at threads.xs:440 #10 0xb7f9c7b0 in start_thread () from /lib/libpthread.so.0 #11 0xb7f1c8fe in clone () from /lib/libc.so.6
Edit: Taking out the stack_size option to use lets the script run:
cthulhu:/tmp# ./blah.pl server:278652 client:278652 cycles: 1774.854/sec

Replies are listed 'Best First'.
Re^3: Socket hang. (Windows or Perl? Solutions?)
by BrowserUk (Patriarch) on Apr 05, 2011 at 22:38 UTC

    Thanks guys. I've removed the stack_size option and the windows dependency in the OP code.

    Any chance you could try it again?


    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.