Why do I seg fault?

Why do I seg fault?

am 11.06.2006 20:09:24 von ML

Hi,

I have a short snip of code :

#!/usr/local/bin/perl

use LWP::UserAgent;
use HTTP::Cookies;

$turl="http://us.rd.yahoo.com/evt=40654/*https%3a//login.yah oo.com/config/login_
verify2?.intl=us&.src=ygrp&.done=http%3a//groups.yahoo.com";

$tcookie_jar = HTTP::Cookies->new(file => "cookies.txt",
autosave => 1,
);
$tuseragent = LWP::UserAgent->new;
$tuseragent->agent("Tuc Cullinfo ".$tuseragent->agent);
$tuseragent->cookie_jar($tcookie_jar);

$tgetrequest = HTTP::Request->new('GET',$turl);
$tgetresults = $tuseragent->request($tgetrequest);
$ttmpresults= $tgetresults->as_string;

When I run I get :

himinbjorg# ./try.pl
Segmentation fault (core dumped)

When I run a back trace on it, I get :


(gdb) bt
#0 0x2833029d in SSL_CTX_ctrl () from /usr/local/lib/libssl.so.4
#1 0x28302798 in XS_Crypt__SSLeay__CTX_new ()
from /usr/local/lib/perl5/site_perl/5.8.8/mach/auto/Crypt/SSLeay/ SSLeay.so
#2 0x280fc5b9 in Perl_pp_entersub ()
from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#3 0x280f5212 in Perl_runops_standard ()
from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#4 0x280a2b8f in S_run_body ()
from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#5 0x280a2852 in perl_run ()
from /usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so
#6 0x08049128 in main ()

My libssl is openssl-0.9.8b_1 from FreeBSD ports, and my
Crypt-SSLeay is p5-Crypt-SSLeay-0.51 again from ports.

Any idea why?

Thanks, Tuc