diff options
| author | Yves Orton <demerphq@gmail.com> | 2016-10-19 10:44:53 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-10-19 13:27:59 +0200 |
| commit | 9dd7321f6c6a35d582480f0f1f771dc451a71b16 (patch) | |
| tree | a3fe06fedd117188adc81676ba2c95ce6b221120 /ext | |
| parent | 45661033e6be88d16397139fbd546cb1c7f8cd56 (diff) | |
| download | perl-9dd7321f6c6a35d582480f0f1f771dc451a71b16.tar.gz | |
Devel-Peek: use hv_fetchs() when the key is a constant string
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Devel-Peek/Peek.pm | 2 | ||||
| -rw-r--r-- | ext/Devel-Peek/Peek.xs | 28 |
2 files changed, 15 insertions, 15 deletions
diff --git a/ext/Devel-Peek/Peek.pm b/ext/Devel-Peek/Peek.pm index 2c57cba259..f3ce70f5ef 100644 --- a/ext/Devel-Peek/Peek.pm +++ b/ext/Devel-Peek/Peek.pm @@ -3,7 +3,7 @@ package Devel::Peek; -$VERSION = '1.24'; +$VERSION = '1.25'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/ext/Devel-Peek/Peek.xs b/ext/Devel-Peek/Peek.xs index 132cad79e3..2d9895bd44 100644 --- a/ext/Devel-Peek/Peek.xs +++ b/ext/Devel-Peek/Peek.xs @@ -181,46 +181,46 @@ _mstats_to_hv(HV *hv, const struct mstats_buffer *b, int level) SV **svp; int type; - svp = hv_fetch(hv, "topbucket", 9, 1); + svp = hv_fetchs(hv, "topbucket", 1); sv_setiv(*svp, b->buffer.topbucket); - svp = hv_fetch(hv, "topbucket_ev", 12, 1); + svp = hv_fetchs(hv, "topbucket_ev", 1); sv_setiv(*svp, b->buffer.topbucket_ev); - svp = hv_fetch(hv, "topbucket_odd", 13, 1); + svp = hv_fetchs(hv, "topbucket_odd", 1); sv_setiv(*svp, b->buffer.topbucket_odd); - svp = hv_fetch(hv, "totfree", 7, 1); + svp = hv_fetchs(hv, "totfree", 1); sv_setiv(*svp, b->buffer.totfree); - svp = hv_fetch(hv, "total", 5, 1); + svp = hv_fetchs(hv, "total", 1); sv_setiv(*svp, b->buffer.total); - svp = hv_fetch(hv, "total_chain", 11, 1); + svp = hv_fetchs(hv, "total_chain", 1); sv_setiv(*svp, b->buffer.total_chain); - svp = hv_fetch(hv, "total_sbrk", 10, 1); + svp = hv_fetchs(hv, "total_sbrk", 1); sv_setiv(*svp, b->buffer.total_sbrk); - svp = hv_fetch(hv, "sbrks", 5, 1); + svp = hv_fetchs(hv, "sbrks", 1); sv_setiv(*svp, b->buffer.sbrks); - svp = hv_fetch(hv, "sbrk_good", 9, 1); + svp = hv_fetchs(hv, "sbrk_good", 1); sv_setiv(*svp, b->buffer.sbrk_good); - svp = hv_fetch(hv, "sbrk_slack", 10, 1); + svp = hv_fetchs(hv, "sbrk_slack", 1); sv_setiv(*svp, b->buffer.sbrk_slack); - svp = hv_fetch(hv, "start_slack", 11, 1); + svp = hv_fetchs(hv, "start_slack", 1); sv_setiv(*svp, b->buffer.start_slack); - svp = hv_fetch(hv, "sbrked_remains", 14, 1); + svp = hv_fetchs(hv, "sbrked_remains", 1); sv_setiv(*svp, b->buffer.sbrked_remains); - svp = hv_fetch(hv, "minbucket", 9, 1); + svp = hv_fetchs(hv, "minbucket", 1); sv_setiv(*svp, b->buffer.minbucket); - svp = hv_fetch(hv, "nbuckets", 8, 1); + svp = hv_fetchs(hv, "nbuckets", 1); sv_setiv(*svp, b->buffer.nbuckets); if (_NBUCKETS < b->buffer.nbuckets) |