http-client test: test with variable case headers

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@627 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
This commit is contained in:
Heikki Hannikainen 2012-08-14 09:35:29 +00:00
parent 8b018a67a2
commit c1eacfc5e4
1 changed files with 2 additions and 2 deletions

View File

@ -44,8 +44,8 @@ my $url = "http://127.0.0.1:55080/";
#$url = "http://he.fi/";
my $req = HTTP::Request::Common::POST($url);
#$req->header('Accept', 'text/plain');
$req->header('Accept-Type', 'text/plain');
$req->header('Content-Type', 'application/octet-stream');
$req->header('Accept-type', 'text/plain');
$req->header('Content-type', 'application/octet-stream');
$req->header('Content-Length', length($post));
$req->content($post);