我正在尝试调试在解析
Plack::Request时在服务器日志中显示的奇怪警告.在某些情况下,一个损坏的UserAgent将发送一个看起来像“6375,6375”的Content-Length标题,这显然是错误的.
要正确解决这个问题,我需要能够重现警告.我想将其包含在单元测试中,这样我就可以确保在警告静音后没有回归.但是,我在使用Perl时遇到了麻烦.我知道这可以使用netcat和socat完成,但我不希望单元测试必须依赖其他二进制文件来安装.
这是我尝试过的：
#!/usr/bin/env perl
use strict;
use warnings;
use JSON::XS qw( encode_json );
use WWW::Mechanize;
my $mech = WWW::Mechanize->new;
$mech->add_handler(
request_prepare => sub {
my ( $req,$ua,$h ) = @_;
$req->headers->header( 'Content-Length' => 9999 );
return;
}
);
my $json = encode_json( { foo => 'bar' } );
$mech->post(
'http://example.com'/url,'Content-Length' => 999,Content => $json
);
输出是：
Content-Length header value was wrong,fixed at /opt/perl5.16.3/lib/site_perl/5.16.3/LWP/Protocol/http.pm line 260. 200
这对我来说太有用了.