# imitate nph- cgi for IIS (pointed by Murray Nesbitt) - my $status = defined($ENV{'SERVER_SOFTWARE'}) && $ENV{'SERVER_SOFTWARE'}=~/IIS/ - ? $ENV{SERVER_PROTOCOL} || 'HTTP/1.0' : 'Status:'; + my $status; + if ($self->{'nph'}) { + $status = $ENV{SERVER_PROTOCOL} || 'HTTP/1.0'; + } else { + $status = defined($ENV{'SERVER_SOFTWARE'}) && $ENV{'SERVER_SOFTWARE'}=~/IIS/ + ? $ENV{SERVER_PROTOCOL} || 'HTTP/1.0' : 'Status:'; + } my $code = $self->response->code;