# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1368291839 -14400
# Node ID 484b713f57b06e207d9bbc2569e5eef9a190f114
# Parent  8fcc46212e5e93a398518bd2c2dc6f108ea36d99
Tests: remove perl.t TODO checks.

diff --git a/perl.t b/perl.t
--- a/perl.t
+++ b/perl.t
@@ -107,9 +107,6 @@ like(http(
 	body => '1234567890'
 ), qr/body: 1234567890/, 'perl body late');
 
-TODO: {
-local $TODO = 'broken' if $t->has_version('1.3.9');
-
 like(http(
 	'GET /body HTTP/1.0' . CRLF
 	. 'Host: localhost' . CRLF
@@ -119,11 +116,6 @@ like(http(
 	body => '67890'
 ), qr/body: 1234567890/, 'perl body split');
 
-}
-
-TODO: {
-local $TODO = 'not yet';
-
 like(http(
 	'GET /body HTTP/1.1' . CRLF
 	. 'Host: localhost' . CRLF
@@ -154,6 +146,4 @@ like(http(
 	body => '67890' . CRLF . '0' . CRLF . CRLF
 ), qr/body: 1234567890/, 'perl body chunked split');
 
-}
-
 ###############################################################################