Bad file number

[Jacinta Richardson]

G'day folks,

I was hoping I could ask for some advice.

I'm using LWP::UserAgent (with Crypt::SSLeay) to connect to a HTTPS
service.

With one set of certificates it works like a charm and there are no
problems at all.

With a recently renewed set of certificates I'm having problems.  It
doesn't even appear that the connection to being attempted, instead my
result object is coming out as follows:

res: $VAR1 = bless( {
                 '_request' => bless( {
                                        '_method' => 'POST',
                                        '_headers' => bless( {

	'user-agent' => 'libwww-perl/5.65',
	'content-type' => 'application/x-www-form-urlencoded'
                                                             },
	'HTTP::Headers' ),

                                        '_uri' => bless( do{\(my $o =
	'http://some.site.here')},
	'URI::https' ),
                                        '_content' => 'dummy_input=1'
                                      }, 'HTTP::Request' ),

                 '_headers' => bless( {
                                        'client-date' => 'Tue, 22 Jul 2003
08:49:30 GMT'
                                      }, 'HTTP::Headers' ),
                 '_msg' => 'configure certs failed: failed to load
/path/to/devel-client.key: ',
                 '_rc' => 500,
                 '_content' => ''
               }, 'HTTP::Response' );


from the code:


    # Create a user agent object
    my $ua = new LWP::UserAgent;

print STDERR "cert: [$cert]\n";
print STDERR "key: [$key]\n";
print STDERR "url: [$url], content: [$input_params]\n";
    # Create a request
    my $req = new HTTP::Request("POST", "$url");

    # This is an HTML form
    $req->content_type('application/x-www-form-urlencoded');

    # Give the request object the POSTed input
    $req->content($input_params);

print STDERR "req: " . Dumper( $req ) . "\n";
    my $res = $ua->request($req);

print STDERR "res: " . Dumper( $res ) . "\n";

    print STDERR "call forte response: " .$res->code."\n";
    print STDERR "[", $res->content(), "]", "\n";
    return $res->content();



I'm sure there must be a problem with my certificate-key pair, as I have
another certificate-key pair used by the same code that works perfectly.
What is more, if I import this certificate and key into my browser it
also works fine when connecting to the site.  This has only happened
since we've renewed the certificate.

$!, $^E are both being set to "Bad file number".
$!{EBADF} is set to "9"
$@ is not being set, although the _msg above is expecting it to have
been.

Any theories on where I start to fix this? 

	Jacinta


--
   ("`-''-/").___..--''"`-._          |  Jacinta Richardson         |
    `6_ 6  )   `-.  (     ).`-.__.`)  |  Perl Training Australia    |
    (_Y_.)'  ._   )  `._ `. ``-..-'   |      +613 9354 6001         |  
  _..`--'_..-_/  /--'_.' ,'           | contact at perltraining.com.au |
(il),-''  (li),'  ((!.-'              |   www.perltraining.com.au   |