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 /regexec.c | |
| 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
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 2 |
1 files changed, 1 insertions, 1 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) { |