*** extlib/CGI.pm.org	Sun Aug  7 10:21:04 2005
--- extlib/CGI.pm	Sun Aug  7 17:00:56 2005
***************
*** 1210,1216 ****
      $type .= "; charset=$charset" if $type ne '' and $type =~ m!^text/! and $type !~ /\bcharset\b/;
  
      # Maybe future compatibility.  Maybe not.
!     my $protocol = $ENV{SERVER_PROTOCOL} || 'HTTP/1.0';
      push(@header,$protocol . ' ' . ($status || '200 OK')) if $nph;
      push(@header,"Server: " . &server_software()) if $nph;
  
--- 1210,1217 ----
      $type .= "; charset=$charset" if $type ne '' and $type =~ m!^text/! and $type !~ /\bcharset\b/;
  
      # Maybe future compatibility.  Maybe not.
!     my $protocol = $ENV{'SERVER_PROTOCOL'};
!     $protocol = 'HTTP/1.0' if (! $protocol || $protocol eq 'INCLUDED');
      push(@header,$protocol . ' ' . ($status || '200 OK')) if $nph;
      push(@header,"Server: " . &server_software()) if $nph;
  
***************
*** 2652,2658 ****
  ####
  'server_protocol' => <<'END_OF_FUNC',
  sub server_protocol {
!     return $ENV{'SERVER_PROTOCOL'} || 'HTTP/1.0'; # for debugging
  }
  END_OF_FUNC
  
--- 2653,2660 ----
  ####
  'server_protocol' => <<'END_OF_FUNC',
  sub server_protocol {
!     my $protocol = $ENV{'SERVER_PROTOCOL'};
!     return (! $protocol || $protocol eq 'INCLUDED') ? 'HTTP/1.0' : $protocol;
  }
  END_OF_FUNC