*** /usr/local/lib/perl5/site_perl/LWP/Protocol/http.pm Wed May  6 09:37:36 1998
--- LWP/Protocol/http.pm        Wed Aug  5 17:06:56 1998
***************
*** 95,101 ****

      # If we're sending content we *have* to specify a content length
      # otherwise the server won't know a messagebody is coming.
!     if ($ctype eq 'SCALAR') {
        $h->header('Content-Length' => length $$cont_ref)
                if defined($$cont_ref) && length($$cont_ref);
      } elsif ($ctype eq 'CODE') {
--- 95,101 ----

      # If we're sending content we *have* to specify a content length
      # otherwise the server won't know a messagebody is coming.
!     if ($ctype eq 'SCALAR' or $ctype eq 'LVALUE') {
        $h->header('Content-Length' => length $$cont_ref)
                if defined($$cont_ref) && length($$cont_ref);
      } elsif ($ctype eq 'CODE') {