diff options
| author | Rick Delaney <rick@consumercontact.com> | 2007-11-06 14:18:45 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-11-07 19:21:15 +0000 |
| commit | 0008a298a756beba82d3333fc66460546e961c07 (patch) | |
| tree | 108f784e1d885dbf988c409e1afda09f734742aa | |
| parent | 4f3da17a993846b4efaf37437bea7db81f0a7a77 (diff) | |
| download | perl-0008a298a756beba82d3333fc66460546e961c07.tar.gz | |
Re: [perl #47195] $1 suddenly tainted after regexp on utf-8 string
Message-ID: <20071107001845.GA21000@bort.ca>
[plus remove the TODO from the now passing test]
p4raw-id: //depot/perl@32236
| -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"); } |