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: 6b3df22) | patch
Tweak Tie::Hash::NamedCapture's BOOT code - get the stash from the CV.
authorNicholas Clark <nick@ccl4.org>
Tue, 8 Mar 2011 20:01:46 +0000 (20:01 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 8 Mar 2011 21:32:36 +0000 (21:32 +0000)
commit63f281fa1e421520fab564bf3362bf3b7082b2c7
tree8cec32f36409f4175ce12785aa6a0886a961f37ctree | snapshot
parent6b3df22776523c7e117a080b445b166b31464123commit | diff
Tweak Tie::Hash::NamedCapture's BOOT code - get the stash from the CV.

This will result in less work than using newSVrv(), as the character string
passed to that is used to walk the symbol table to find the stash. We already
have a fast way to get to the stash - via the CV's GV. So use that directly.
ext/Tie-Hash-NamedCapture/NamedCapture.xs diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.