diff options
-rw-r--r-- | regexec.c | 2 | ||||
-rwxr-xr-x | t/op/taint.t | 1 |
2 files changed, 1 insertions, 2 deletions
@@ -5405,8 +5405,8 @@ S_regrepeat(pTHX_ const regexp *prog, const regnode *p, I32 max, int depth) } else { while (scan < loceol && !isSPACE(*scan)) scan++; - break; } + break; case NSPACEL: PL_reg_flags |= RF_tainted; if (do_utf8) { diff --git a/t/op/taint.t b/t/op/taint.t index d33b66c1cd..bb238442b3 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -1236,7 +1236,6 @@ foreach my $ord (78, 163, 256) { chop $line; is($line, 'A1'); $line =~ /(A\S*)/; - local $::TODO = "Bug for UTF-8 not fixed yet" if $ord > 255; ok(!tainted($1), "\\S match with chr $ord"); } |