diff --git a/perl.t b/perl.t
index 5bbcf92..3b05b95 100644
--- a/perl.t
+++ b/perl.t
@@ -178,7 +178,7 @@
 	'perl header_out content-length multipart');
 
 TODO: {
-local $TODO = 'not yet';
+local $TODO = 'not yet' unless $t->has_version('1.17.2');
 
 like(http(
 	'GET /range HTTP/1.0' . CRLF