# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1370973958 -14400
# Node ID e491290fe83ab23953a38519eb834a7abe6105c1
# Parent  389cee4c78aa6a7d9f14101a73acf0e0c0620dca
Tests: adjust perl.t TODO.

diff --git a/perl.t b/perl.t
--- a/perl.t
+++ b/perl.t
@@ -111,7 +111,7 @@ like(http(
 ), qr/xfoo: foo/, 'perl header_in unknown');
 
 TODO: {
-local $TODO = 'broken in 1.3.14';
+local $TODO = 'broken in 1.3.14' unless $t->has_version('1.5.2');
 
 like(http(
 	'GET / HTTP/1.0' . CRLF