It sounds like the problem is within the object that is calling the method. Would you post the code that actually makes the call, and perhaps tell us what class the object actually is? This might help others track the problem down.

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

It's actually a SOAP::Lite call done by an API from an incident management too call ServiceNow.

I can post that module but it might be easier if I tell you where you can pull down the API.
ServiceNow API Wiki

The module performing the call is ServiceNow::Connection.

# ====================================================================
+==
#
# Copyright (C) 2009 Service-now.com
#
# ====================================================================
+==

package ServiceNow::Connection;

# default is using SOAP::Lite
use SOAP::Lite;

$VERSION = '1.00';
my $CONFIG;

=pod

=head1 Connection module

Service-now Perl API - Connection perl module

=head1 Desciption

An object representation of a Connection object used to access your Se
+rvice-now instance. 
The Connection class can be overrided by the API user for implementati
+ons other than the default SOAP::Lite dependency.
To override this class, provide the subroutines for new, open, and sen
+d.

=head2 System Requirements

The Service-now Perl API requires Perl 5.8 with the following modules 
+installed

  * SOAP::Lite (prerequisites http://soaplite.com/prereqs.html) 0.71 o
+r later
  * Crypt::SSLeay
  * IO::Socket::SSL

=cut

# implement SOAP::Lite's basic auth strategy
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
   return $CONFIG->getUserName() => $CONFIG->getUserPassword();
}

sub new {
  my ($class, $conf, $target) = (shift, shift, shift);
  # copy to global
  my $me = {};
  $CONFIG = $conf;
  
  $me->{'SOAP'} = SOAP::Lite
    -> proxy($CONFIG->getSoapEndPoint($target));
  bless($me, $class);
  return $me;
}

sub open {
  #print "connection open() is not implemented\n";
}

sub send {
  my ($me, $methodName, %hash) = (shift, shift, %{(shift)});
  
  my $METHOD = SOAP::Data->name($methodName)
    ->attr({xmlns => 'http://www.service-now.com/' . $methodName});
  
  my(@PARAMS);
  my($key);
  foreach $key (keys(%hash)) { 
      push(@PARAMS, SOAP::Data->name($key => $hash{$key}));
  }
    
  my $RESULT = $me->{'SOAP'}->call($METHOD => @PARAMS);
  # return the element within the Body element, removing SOAP::Lite de
+pendencies
  return $RESULT->valueof('Body');
}

sub close {
  #print "connection close() is not implemented\n";    
}

1;
[download]

I should also say that the same code works fine on a different machine.

dsb
This @ISA my( $cool ) %SIG

I don't see the call to http_connect() in this code that you posted. What i would do, and this is not very scientific at all, is simply add a line of code (or two) before the call to SUPER::configure() in the http_connect() method (if you can):

# untested ... look up the docs for caller()
use Data::Dumper;
warn Dumper { self => $self, caller => [ caller() ] };
[download]

And see if that helps you get to the root of the problem.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)