From 0008a298a756beba82d3333fc66460546e961c07 Mon Sep 17 00:00:00 2001
From: Rick Delaney <rick@consumercontact.com>
Date: Tue, 6 Nov 2007 14:18:45 -0500
Subject: 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
---
 regexec.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'regexec.c')

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) {
-- 
cgit v1.2.1