diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2001-06-20 22:21:43 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-21 12:10:29 +0000 |
| commit | 8673f78cbbb777f3c83e7fad05d5b4d4d388e4be (patch) | |
| tree | e9a4087c304159cef25581228e5c4260b782be96 /pp_ctl.c | |
| parent | 4825b64b32ac191cfa4c7a0c7bd56e2acb567a0b (diff) | |
| download | perl-8673f78cbbb777f3c83e7fad05d5b4d4d388e4be.tar.gz | |
Make /o work under i?threads
Message-ID: <Pine.LNX.4.21.0106210518210.2479-100000@oregonnet.com>
p4raw-id: //depot/perl@10771
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -88,6 +88,13 @@ PP(pp_regcomp) MAGIC *mg = Null(MAGIC*); tmpstr = POPs; + + /* prevent recompiling under /o and ithreads. */ +#if defined(USE_ITHREADS) || defined(USE_THREADS) + if (pm->op_pmflags & PMf_KEEP && PM_GETRE(pm)) + RETURN; +#endif + if (SvROK(tmpstr)) { SV *sv = SvRV(tmpstr); if(SvMAGICAL(sv)) |