regcomp.c, S_compile_runtime_code: croak using the SVf format

This makes error messages from code like this:

    $f = "(?{q\0foo\0 + \x{FFFF}})";
    "a" =~ /^a$f/;

Be both UTF-8 and nul clean.

1 files changed, 1 insertions, 3 deletions

diff --git a/t/uni/parser.t b/t/uni/parser.t
index dcb96f2d13..b71ca88db5 100644
--- a/t/uni/parser.t
+++ b/t/uni/parser.t
@@ -117,9 +117,7 @@ is ${"main::\345\225\217"}, undef, "..and using the encoded form doesn't";
        "...and nul-clean"
     );
 
-    TODO: {
-        local $::TODO = "Unrecognized character thrown from a re-eval not UTF8/nul clean yet";
-        
+    {
         use re 'eval';
         my $f = qq{(?{\$ネ+ 1; \x{1F42A} })};
         eval { "a" =~ /^a$f/ };