diff options
author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2016-11-12 11:47:48 +0100 |
---|---|---|
committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2016-11-12 12:06:43 +0100 |
commit | 07e4dd7aad22c455c54f35c4807bee7a81a93801 (patch) | |
tree | 07254452f644f410117b7f2bbf341aef19600547 /dist/Data-Dumper | |
parent | 29e06fb2031a2ea268098a3a317d1bc63246cb02 (diff) | |
download | perl-07e4dd7aad22c455c54f35c4807bee7a81a93801.tar.gz |
Change hv_fetch(…, "…", …, …) to hv_fetchs(…, "…", …)
The dual-life dists all use Devel::PPPort, so they can use this function
even though it was only added in 5.10.
Diffstat (limited to 'dist/Data-Dumper')
-rw-r--r-- | dist/Data-Dumper/Dumper.pm | 2 | ||||
-rw-r--r-- | dist/Data-Dumper/Dumper.xs | 46 |
2 files changed, 24 insertions, 24 deletions
diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm index f461969fa2..606abecaa1 100644 --- a/dist/Data-Dumper/Dumper.pm +++ b/dist/Data-Dumper/Dumper.pm @@ -10,7 +10,7 @@ package Data::Dumper; BEGIN { - $VERSION = '2.162'; # Don't forget to set version and release + $VERSION = '2.163'; # Don't forget to set version and release } # date in POD below! #$| = 1; diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs index 25886d7af8..5a658318b1 100644 --- a/dist/Data-Dumper/Dumper.xs +++ b/dist/Data-Dumper/Dumper.xs @@ -1412,53 +1412,53 @@ Data_Dumper_Dumpxs(href, ...) && (hv = (HV*)SvRV((SV*)href)) && SvTYPE(hv) == SVt_PVHV) { - if ((svp = hv_fetch(hv, "seen", 4, FALSE)) && SvROK(*svp)) + if ((svp = hv_fetchs(hv, "seen", FALSE)) && SvROK(*svp)) seenhv = (HV*)SvRV(*svp); else style.use_sparse_seen_hash = 1; - if ((svp = hv_fetch(hv, "noseen", 6, FALSE))) + if ((svp = hv_fetchs(hv, "noseen", FALSE))) style.use_sparse_seen_hash = (SvOK(*svp) && SvIV(*svp) != 0); - if ((svp = hv_fetch(hv, "todump", 6, FALSE)) && SvROK(*svp)) + if ((svp = hv_fetchs(hv, "todump", FALSE)) && SvROK(*svp)) todumpav = (AV*)SvRV(*svp); - if ((svp = hv_fetch(hv, "names", 5, FALSE)) && SvROK(*svp)) + if ((svp = hv_fetchs(hv, "names", FALSE)) && SvROK(*svp)) namesav = (AV*)SvRV(*svp); - if ((svp = hv_fetch(hv, "indent", 6, FALSE))) + if ((svp = hv_fetchs(hv, "indent", FALSE))) style.indent = SvIV(*svp); - if ((svp = hv_fetch(hv, "purity", 6, FALSE))) + if ((svp = hv_fetchs(hv, "purity", FALSE))) style.purity = SvIV(*svp); - if ((svp = hv_fetch(hv, "terse", 5, FALSE))) + if ((svp = hv_fetchs(hv, "terse", FALSE))) terse = SvTRUE(*svp); - if ((svp = hv_fetch(hv, "useqq", 5, FALSE))) + if ((svp = hv_fetchs(hv, "useqq", FALSE))) style.useqq = SvTRUE(*svp); - if ((svp = hv_fetch(hv, "pad", 3, FALSE))) + if ((svp = hv_fetchs(hv, "pad", FALSE))) style.pad = *svp; - if ((svp = hv_fetch(hv, "xpad", 4, FALSE))) + if ((svp = hv_fetchs(hv, "xpad", FALSE))) style.xpad = *svp; - if ((svp = hv_fetch(hv, "apad", 4, FALSE))) + if ((svp = hv_fetchs(hv, "apad", FALSE))) apad = *svp; - if ((svp = hv_fetch(hv, "sep", 3, FALSE))) + if ((svp = hv_fetchs(hv, "sep", FALSE))) style.sep = *svp; - if ((svp = hv_fetch(hv, "pair", 4, FALSE))) + if ((svp = hv_fetchs(hv, "pair", FALSE))) style.pair = *svp; - if ((svp = hv_fetch(hv, "varname", 7, FALSE))) + if ((svp = hv_fetchs(hv, "varname", FALSE))) varname = *svp; - if ((svp = hv_fetch(hv, "freezer", 7, FALSE))) + if ((svp = hv_fetchs(hv, "freezer", FALSE))) style.freezer = *svp; - if ((svp = hv_fetch(hv, "toaster", 7, FALSE))) + if ((svp = hv_fetchs(hv, "toaster", FALSE))) style.toaster = *svp; - if ((svp = hv_fetch(hv, "deepcopy", 8, FALSE))) + if ((svp = hv_fetchs(hv, "deepcopy", FALSE))) style.deepcopy = SvTRUE(*svp); - if ((svp = hv_fetch(hv, "quotekeys", 9, FALSE))) + if ((svp = hv_fetchs(hv, "quotekeys", FALSE))) style.quotekeys = SvTRUE(*svp); - if ((svp = hv_fetch(hv, "trailingcomma", 13, FALSE))) + if ((svp = hv_fetchs(hv, "trailingcomma", FALSE))) style.trailingcomma = SvTRUE(*svp); - if ((svp = hv_fetch(hv, "bless", 5, FALSE))) + if ((svp = hv_fetchs(hv, "bless", FALSE))) style.bless = *svp; - if ((svp = hv_fetch(hv, "maxdepth", 8, FALSE))) + if ((svp = hv_fetchs(hv, "maxdepth", FALSE))) style.maxdepth = SvIV(*svp); - if ((svp = hv_fetch(hv, "maxrecurse", 10, FALSE))) + if ((svp = hv_fetchs(hv, "maxrecurse", FALSE))) style.maxrecurse = SvIV(*svp); - if ((svp = hv_fetch(hv, "sortkeys", 8, FALSE))) { + if ((svp = hv_fetchs(hv, "sortkeys", FALSE))) { SV *sv = *svp; if (! SvTRUE(sv)) style.sortkeys = NULL; |