diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-06 07:19:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-06 07:19:39 +0000 |
| commit | e24b16f93601a2fb49f1bbf6bab19c3bfe09c0e8 (patch) | |
| tree | 2486134e928dceaecf5804e2e21da9bbf3065728 /regcomp.c | |
| parent | 0a3e5ca21a6646f3abf4cafe2bcefb8a5b50aa83 (diff) | |
| download | perl-e24b16f93601a2fb49f1bbf6bab19c3bfe09c0e8.tar.gz | |
fix globals caught by change#1927; builds and tests on Solaris
p4raw-link: @1927 on //depot/perl: eb07465ebe1238598e948058857ec948c6697f86
p4raw-id: //depot/perl@1936
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -792,7 +792,7 @@ pregcomp(char *exp, char *xend, PMOP *pm) if (exp == NULL) FAIL("NULL regexp argument"); - if (PL_curcop == &compiling ? (PL_hints & HINT_UTF8) : IN_UTF8) + if (PL_curcop == &PL_compiling ? (PL_hints & HINT_UTF8) : IN_UTF8) PL_reg_flags |= RF_utf8; else PL_reg_flags = 0; @@ -1160,8 +1160,9 @@ reg(I32 paren, I32 *flagp) PL_regcomp_rx->data->data[n+2] = (void*)sop; SvREFCNT_dec(sv); } - else { /* First pass */ - if (PL_reginterp_cnt < ++PL_seen_evals && PL_curcop != &compiling) + else { /* First pass */ + if (PL_reginterp_cnt < ++PL_seen_evals + && PL_curcop != &PL_compiling) /* No compiled RE interpolated, has runtime components ===> unsafe. */ FAIL("Eval-group not allowed at runtime, use re 'eval'"); |