[asperl] integrate win32 branch contents

p4raw-id: //depot/asperl@493

1 files changed, 3 insertions, 2 deletions

diff --git a/regcomp.c b/regcomp.c
index 4fd7f154ec..9d9fa89a32 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1069,11 +1069,12 @@ reg(I32 paren, I32 *flagp)
 		    rx->data->data[n+1] = (void*)av;
 		    rx->data->data[n+2] = (void*)sop;
 		    SvREFCNT_dec(sv);
+		} else {		/* First pass */
+		    if (tainted)
+			FAIL("Eval-group in insecure regular expression");
 		}
 		
 		nextchar();
-		if (tainted)
-		    FAIL("Eval-group in insecure regular expression");
 		return reganode(EVAL, n);
 	    }
 	    case '(':