diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-01-11 15:34:05 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 16:01:36 +0000 |
| commit | cc6b73957505a73b130c87add7bf3d534f129041 (patch) | |
| tree | 9eae2f71c172110fb9ec7dfb5f002ebb937fd46c /regcomp.c | |
| parent | e5724059399517e049ad3e9429cfece6d66ce97f (diff) | |
| download | perl-cc6b73957505a73b130c87add7bf3d534f129041.tar.gz | |
5.004_56: Patch to Tie::Hash and docs
Date: Sun, 11 Jan 1998 20:34:05 -0500 (EST)
Subject: 5.004_56: Patch to (?{}) quoting + cosmetic
Date: Mon, 2 Feb 1998 01:28:46 -0500 (EST)
p4raw-id: //depot/perl@470
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1065,11 +1065,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 '(': |