Browse Source

fix invalid response

master
René Wagner 1 year ago
parent
commit
8491131813
  1. 2
      demo.pl

2
demo.pl

@ -71,7 +71,7 @@ sub write_response
{
my ($returncode, $mime, @content) = @_;
if (undef($RC{$returncode})) { die "Unknown response code!"; }
if (!defined($RC{$returncode})) { die "Unknown response code!"; }
print("$RC{$returncode} $mime\r\n");
foreach (@content)

Loading…
Cancel
Save