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: 842f391) | patch
[perl #92260] Devel::Peek::fill_mstats and non-PVs
authorFather Chrysostomos <sprout@cpan.org>
Sun, 11 Aug 2013 23:09:19 +0000 (16:09 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 12 Aug 2013 08:53:27 +0000 (01:53 -0700)
commitb59747acf7d9e3f69f93d8e6b2906805c2e3b690
tree25b61131eb033300a6bb107db5d5dd3f8101eac7tree | snapshot
parent842f3911b8cce093c74b9e06029c0198ccfb9090commit | diff
[perl #92260] Devel::Peek::fill_mstats and non-PVs

Devel::Peek::fill_mstats assumed that the argument was >= SVt_PV so
it crashed on brand new undef scalars.  Use sv_grow, instead of
SvGROW.  Since sv_grow also handles COWs, we can remove the special
COW check.
ext/Devel-Peek/Peek.xs diff | blob | blame | history
ext/Devel-Peek/t/Peek.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.