diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-02-10 05:11:14 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-10 21:26:15 +0000 |
| commit | 87ecf8923f8f323d036e6b45f74d192a6108868c (patch) | |
| tree | 2bda1884c79b3647e99db03e39e1396ca5770a82 /toke.c | |
| parent | 5bd07a3d26012a115fab327912ac8788755e1251 (diff) | |
| download | perl-87ecf8923f8f323d036e6b45f74d192a6108868c.tar.gz | |
Re: [patch] GvSHARED
Message-ID: <Pine.LNX.4.21.0102101253070.15298-100000@mako.covalent.net>
our @EXPORT : shared = (...);
p4raw-id: //depot/perl@8761
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -3073,6 +3073,10 @@ Perl_yylex(pTHX) CvLOCKED_on(PL_compcv); else if (!PL_in_my && len == 6 && strnEQ(s, "method", len)) CvMETHOD_on(PL_compcv); +#ifdef USE_ITHREADS + else if (PL_in_my == KEY_our && len == 6 && strnEQ(s, "shared", len)) + GvSHARED_on(cGVOPx_gv(yylval.opval)); +#endif /* After we've set the flags, it could be argued that we don't need to do the attributes.pm-based setting process, and shouldn't bother appending recognized |