--- a/sub_filter_perl.t
+++ b/sub_filter_perl.t
@@ -95,7 +95,7 @@ like(http_get('/multi?a=a&b=ab'), qr/^_r
 like(http_get('/multi?a=a&b=aaab'), qr/^aa_replaced$/m, 'aab in a + aaab');
 
 TODO: {
-local $TODO = 'not yet';
+local $TODO = 'not yet' unless $t->has_version('1.5.3');
 
 like(http_get('/multi?a=a&b=aab'), qr/^a_replaced$/m, 'aab in a + aab');
 like(http_get('/multi?a=a&b=aaaab'), qr/^aaa_replaced$/m, 'aab in a + aaaab');
@@ -103,7 +103,7 @@ like(http_get('/multi?a=a&b=aaaab'), qr/
 }
 
 TODO: {
-local $TODO = 'not yet';
+local $TODO = 'not yet' unless $t->has_version('1.5.3');
 
 like(http_get('/multi?a=aa&b=ab'), qr/^a_replaced$/m, 'aab in aa + ab');
 like(http_get('/multi?a=aa&b=aab'), qr/^aa_replaced$/m, 'aab in aa + aab');
@@ -116,7 +116,7 @@ like(http_get('/multi?a=aa&b=aaaab'), qr
 # full backtracking
 
 TODO: {
-local $TODO = 'not yet';
+local $TODO = 'not yet' unless $t->has_version('1.5.3');
 
 like(http_get('/multi?a=aa&b=xaaab'), qr/^aaxa_replaced$/m, 'aab in aa + xaaab');
 like(http_get('/multi?a=aa&b=axaaab'), qr/^aaaxa_replaced$/m,
@@ -131,7 +131,7 @@ like(http_get('/multi?a=aa&b=aaxaaab'), 
 like(http_get('/short?a=a&b=b'), qr/^_replaced$/m, 'ab in a + b');
 
 TODO: {
-local $TODO = 'not yet';
+local $TODO = 'not yet' unless $t->has_version('1.5.3');
 
 like(http_get('/short?a=a&b=ab'), qr/^a_replaced$/m, 'ab in a + ab');
 
@@ -144,7 +144,7 @@ like(http_get('/short?a=a&b=aaaab'), qr/
 like(http_get('/short?a=aa&b=b'), qr/^a_replaced$/m, 'ab in aa + b');
 
 TODO: {
-local $TODO = 'not yet';
+local $TODO = 'not yet' unless $t->has_version('1.5.3');
 
 like(http_get('/short?a=aa&b=ab'), qr/^aa_replaced$/m, 'ab in aa + ab');