Hi,
I am just starting with SOAP-related development, noticed these
warnings in my logs:
Use of uninitialized value in pattern match (m//) at
/opt/local/lib/perl5/site_perl/5.8.7/SOAP/Transport/HTTP.pm line 410.
Use of uninitialized value in string eq at
/opt/local/lib/perl5/site_perl/5.8.7/SOAP/Transport/HTTP.pm line 316.
Here is a patch to address them. If I am sending this to the wrong
place, or I should be submitting a bug somewhere, feel free to slap me
down as long as you also point me in the right direction.
*** 313,319 ****
$content_type !~ m!^multipart/!;
# TODO - Handle the Expect: 100-Continue HTTP/1.1 Header
! if ($self->request->header("Expect") eq "100-Continue") {
}
--- 313,319 ----
$content_type !~ m!^multipart/!;
# TODO - Handle the Expect: 100-Continue HTTP/1.1 Header
! if ($self->request->header("Expect") &&
$self->request->header("Expect") eq "100-Continue") {
}
***************
*** 407,413 ****
} elsif (defined $SOAP::Constants::MAX_CONTENT_SIZE && $length >
$SOAP::Constants::MAX_CONTENT_SIZE) {
$self->response(HTTP::Response->new(413)) # REQUEST ENTITY TOO LARGE
} else {
! if ($ENV{EXPECT} =3D~ /\b100-Continue\b/i) {
print "HTTP/1.1 100 Continue\r\n\r\n";
}
my $content;
--- 407,413 ----
} elsif (defined $SOAP::Constants::MAX_CONTENT_SIZE && $length >
$SOAP::Constants::MAX_CONTENT_SIZE) {
$self->response(HTTP::Response->new(413)) # REQUEST ENTITY TOO LARGE
} else {
! if ($ENV{EXPECT} && $ENV{EXPECT} =3D~ /\b100-Continue\b/i) {
print "HTTP/1.1 100 Continue\r\n\r\n";
}
my $content;
|
