develooper Front page | perl.perl5.porters | Postings from April 2003

debugging help required

Thread Next
From:
Arthur Bergman
Date:
April 18, 2003 04:22
Subject:
debugging help required
Message ID:
DB045088-718F-11D7-8B5A-000393CB5BC4@nanisky.com
Hi,

I am having trouble debugging a little script.

use threads;

use strict;
use LWP::UserAgent;
{
     use LWP::Debug qw(trace);
    my $ua = LWP::UserAgent->new;
     my $request = HTTP::Request->new(GET => "http://www.rudedog.org/");
     my $blah = $ua->request($request);
}
{
my $thread = async {
    #segfaults in perl_clone
    # my $ua = LWP::UserAgent->new;
    # my $request = HTTP::Request->new(GET => "http://www.rudedog.org/");
    # my $blah = $ua->request($request);
     return 1;
};
$thread->join();
}

The function that makes us die is the $ua->request() function, 
SOMEWHERE in there this SV is created:

SV = UNKNOWN(0x98) (0x81a86e8) at 0xbffff824
   REFCNT = 2
   FLAGS = (PADSTALE,PADMY,RMG,IOK,OOK,SCREAM)

It seems to live in the pad of some subroutine. The core dump is when 
sv_dup tries to dup this sv.

Arthur


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About