[Soaplite-devel] [PATCH] Transport/HTTP.pm

[Ward V. <war...@gm...>]

Hi there,

When running a SOAP::Lite daemon with the perl -w flag, each SOAP call
prints out a warning like this to STDERR:

  Use of uninitialized value in string eq at
/usr/local/share/perl/5.8.4/SOAP/Transport/HTTP.pm line 316.

The 'Expect' HTTP header change is responsible for this warning. Please fin=
d
a patch below to get rid of it.

I'm not on the list, so if you want to reply, cc my address please.

Thanks,
Ward.


--- HTTP.pm     2006-02-22 22:47:20.741692048 +0100
+++ HTTP.pm 2006-02-22 22:47:03.902252032 +0100
@@ -313,7 +313,7 @@
        $content_type !~ m!^multipart/!;

   # TODO - Handle the Expect: 100-Continue HTTP/1.1 Header
-  if ($self->request->header("Expect") eq "100-Continue") {
+  if (defined($self->request->header("Expect")) &&
($self->request->header("Expect") eq "100-Continue")) {

   }