diff --git a/t/re/pat.t b/t/re/pat.t
index c5319aff7f2f..eae5bd861104 100644
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -28,7 +28,7 @@ skip_all_without_unicode_tables();
 my $has_locales = locales_enabled('LC_CTYPE');
 my $utf8_locale = find_utf8_ctype_locale();
 
-plan tests => 1298;  # Update this when adding/deleting tests.
+plan tests => 1299;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
@@ -2627,6 +2627,14 @@ SKIP:
 
     }
 
+    {
+        fresh_perl('use re "eval";
+                    my @r;
+                    for$0(qw(0 0)){push@r,qr/@r(?{})/};',
+                   { stderr => 'devnull' });
+        is($?, 0, "No assertion failure (GH 16627)");
+    }
+
     {
         # github #21661
         fresh_perl_is(<<'PROG', <<'EXPECT', {}, "double-free on fatal warn with existing error");
diff --git a/t/run/todo.t b/t/run/todo.t
index 0dc8f6ab7d8d..111c2e2874dd 100644
--- a/t/run/todo.t
+++ b/t/run/todo.t
@@ -46,12 +46,12 @@ TODO: {
     is($?, 0, "No assertion failure");
 }
 
-{
-    fresh_perl('use re "eval";
-                my @r;
-                for$0(qw(0 0)){push@r,qr/@r(?{})/};',
-               { stderr => 'devnull' });
-    is($?, 0, "No assertion failure");
-}
+#{
+#    fresh_perl('use re "eval";
+#                my @r;
+#                for$0(qw(0 0)){push@r,qr/@r(?{})/};',
+#               { stderr => 'devnull' });
+#    is($?, 0, "No assertion failure");
+#}
 
 done_testing();