[Soaplite-devel] silencing warnings

[Mike S. <ms...@gm...>]

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;