diff options
| author | Arthur Bergman <arthur@contiller.se> | 2001-08-15 13:52:16 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-15 12:27:41 +0000 |
| commit | ba674f84c290c80e30477a6ed1e822a828ce2e1e (patch) | |
| tree | 0e8e5902075f8270baf8a0e30f71c2e7687cc2bd /pp.c | |
| parent | 055bb491aa1c61403cb7de2ea930a89a362e1807 (diff) | |
| download | perl-ba674f84c290c80e30477a6ed1e822a828ce2e1e.tar.gz | |
pp_lock
Message-ID: <008401c1256f$f75a91b0$21000a0a@vogw2kdev>
p4raw-id: //depot/perl@11678
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -4348,6 +4348,11 @@ PP(pp_lock) #ifdef USE_THREADS sv_lock(sv); #endif /* USE_THREADS */ +#ifdef USE_ITHREADS + shared_sv *ssv = Perl_sharedsv_find(aTHX_ sv); + if(ssv) + Perl_sharedsv_lock(aTHX_ ssv); +#endif /* USE_ITHREADS */ if (SvTYPE(retsv) == SVt_PVAV || SvTYPE(retsv) == SVt_PVHV || SvTYPE(retsv) == SVt_PVCV) { retsv = refto(retsv); |