summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--regexec.c2
-rwxr-xr-xt/op/taint.t1
2 files changed, 1 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index 3e42f58794..1b9fca1165 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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");
}