36 lines
1,013 B
Perl
36 lines
1,013 B
Perl
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Apache::Test;
|
|
use Apache::TestUtil;
|
|
use Apache::TestRequest;
|
|
|
|
$SIG{PIPE} = 'IGNORE';
|
|
|
|
plan tests => 2, need_min_apache_version('2.0');
|
|
|
|
my $sock = Apache::TestRequest::vhost_socket('default');
|
|
ok $sock;
|
|
|
|
# This is a test for CAN-2004-0942 albeit a pretty bad one:
|
|
# CAN-2004-0942 is a memory leak in the <=2.0.52 logic for handling
|
|
# whitespace in folded headers. This test tests that a folded header
|
|
# which, including whitespace, exceeds the field length limit, gets a
|
|
# 400 response. A better httpd implementation could handle such
|
|
# headers without the memory leak, yet would fail this test.
|
|
|
|
Apache::TestRequest::socket_trace($sock);
|
|
|
|
$sock->print("GET /index.html HTTP/1.0\r\n");
|
|
|
|
my $n = $sock->print("Hello:\r\n");
|
|
foreach (1..100) {
|
|
$n = $sock->print(" "x500 . "\r\n") if $sock->connected;
|
|
}
|
|
|
|
$sock->print("\r\n") if $sock->connected;
|
|
|
|
my $line = Apache::TestRequest::getline($sock) || '';
|
|
|
|
ok t_cmp($line, qr{^HTTP/1\.. 400}, "request was refused");
|
|
|