# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1562945230 -10800
# Node ID 8f79fac049df5d51a2370706d517579d34337710
# Parent  82be9398a9fa438b4ad1c28fe08f985bfad50c9b
Tests: adjusted perl.t TODO for not satisfiable range.

diff --git a/perl.t b/perl.t
--- a/perl.t
+++ b/perl.t
@@ -178,7 +178,7 @@ like(http(
 	'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