[Pdx-pm] Bug in Net::SSLeay?

[Jon Jacob]

I have posted this to Perl Monks, but I thought I would try here as well
as I am pretty desperate.

The following code gives me a segfault.  I suspect that it is from
Net::SSL.pm, and it definitely is related to the https url bec if I use
a http it works fine.

Any help is greatly appreciated.

Here is the code:


use lib qw(/usr/local/lib/perl5/site_perl/5.6.1/
/usr/local/lib/perl5/site_perl/5.6.1/i686-linux);
use LWP;
use HTTP::Cookies;

my $browser = LWP::UserAgent->new;
my $cookie_locale = "cookies.lwp";
$browser->agent("Jonzilla/666");
$browser->cookie_jar( HTTP::Cookies->new(
                         'file' => $cookie_locale,
                         'autosave' => 1,
                        ));
&sign_in;

sub sign_in
  {
    my $result;
    my $gb_num = 10;


    my $email = "xxxxxxx";
    my $password = "xxxxxxxx";
    my $url
="https://www.amazon.com/exec/obidos/flex-sign-in-done/103-9886259-8125402";
    my $response = $browser->post( $url,
                [
                 'email'     => "$email",
                 'action'    => 'sign-in checked',
                 'next-page' =>'recs/instant-recs-register-secure.html',
                 'password'  => $password,
                ],
                  );   
    my $request = new HTTP::Request 'GET' => $url;

    $result = $browser->request($request);
    if ($result->is_success)
      {
    print $result->as_string;
      }
    else
      {
    print "Error: " . $result->status_line . "\n";
      }
  }