Commit cc7790c2503da216e8087ae67570270b91ded1a3

Should store "wire" headers field names with _ without translation.


68	68	last;
69	69	}
70	70	}
71
	71	local $HTTP::Headers::TRANSLATE_UNDERSCORE;
72	72	new($class, \@hdr, $str);
73	73	}
74	74


354	354	$response->protocol("HTTP/$peer_http_version");
355	355	while (@h) {
356	356	my($k, $v) = splice(@h, 0, 2);
	357	local $HTTP::Headers::TRANSLATE_UNDERSCORE;
357	358	$response->push_header($k, $v);
358	359	}
359	360	$response->push_header("Client-Junk" => \@junk) if @junk;
…	…
393	393	@h = $socket->get_trailers;
394	394	while (@h) {
395	395	my($k, $v) = splice(@h, 0, 2);
	396	local $HTTP::Headers::TRANSLATE_UNDERSCORE;
396	397	$response->push_header($k, $v);
397	398	}
398	399


3	3	use strict;
4	4	use Test qw(plan ok skip);
5	5
6		plan tests => 104;
	6	plan tests => 105;
7	7
8	8	require HTTP::Message;
9	9	use Config qw(%Config);
…	…
48	48	ok($m->as_string, "\nfoo\n");
49	49	$m = HTTP::Message->parse("foo: 1");
50	50	ok($m->as_string, "Foo: 1\n\n");
	51	$m = HTTP::Message->parse("foo_bar: 1");
	52	ok($m->as_string, "Foo_bar: 1\n\n");
51	53	$m = HTTP::Message->parse("foo: 1\n\nfoo");
52	54	ok($m->as_string, "Foo: 1\n\nfoo\n");
53	55	$m = HTTP::Message->parse(<<EOT);