*** extlib/CGI.pm.org	Thu Sep 15 18:26:26 2005
--- extlib/CGI.pm	Sun Oct 30 11:26:10 2005
***************
*** 1422,1428 ****
      $type .= "; charset=$charset" if $type ne '' and $type =~ m!^text/! and $type !~ /\bcharset\b/ and $charset ne '';
  
      # 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;
  
--- 1422,1429 ----
      $type .= "; charset=$charset" if $type ne '' and $type =~ m!^text/! and $type !~ /\bcharset\b/ and $charset ne '';
  
      # 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;
  
***************
*** 3001,3007 ****
  ####
  'server_protocol' => <<'END_OF_FUNC',
  sub server_protocol {
!     return $ENV{'SERVER_PROTOCOL'} || 'HTTP/1.0'; # for debugging
  }
  END_OF_FUNC
  
--- 3002,3009 ----
  ####
  '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