This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 7aaef02) | patch
When dup'ing CVs, only take the OP_REFCNT_LOCK if it is needed.
authorNicholas Clark <nick@ccl4.org>
Tue, 23 Nov 2010 11:48:51 +0000 (11:48 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 23 Nov 2010 13:20:19 +0000 (13:20 +0000)
commitf352ce091c525153812f67ed208da9d9e6544625
treed9136f76b2f8b102d164fa5d59cf55b80a57c7e7tree | snapshot
parent7aaef02a1f50c8f5944af8dd33fc7de19986553fcommit | diff
When dup'ing CVs, only take the OP_REFCNT_LOCK if it is needed.

Previously it was being taken for all CVs, including XSUBS.

Also, refactor other non-XSUB specific code into the same if block.
sv.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.