diff options
| author | Yves Orton <demerphq@gmail.com> | 2016-08-08 20:06:01 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-08-14 11:44:20 +0200 |
| commit | 48c0e89d40bfde5337dd013112467554427c1279 (patch) | |
| tree | 572a83d8c5ae64cf0e42deff697ee5dd38029bf2 /ext/Hash-Util | |
| parent | e6d22c5d932ba725d7851ee69fe506e478c913db (diff) | |
| download | perl-48c0e89d40bfde5337dd013112467554427c1279.tar.gz | |
Move hash introspection routines into Hash::Util/Util.xs and out of universal.c
Diffstat (limited to 'ext/Hash-Util')
| -rw-r--r-- | ext/Hash-Util/Util.xs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/Hash-Util/Util.xs b/ext/Hash-Util/Util.xs index 611cc636df..db3fb5ad84 100644 --- a/ext/Hash-Util/Util.xs +++ b/ext/Hash-Util/Util.xs @@ -274,7 +274,6 @@ bucket_array(rhv) XSRETURN(0); } -#if PERL_VERSION < 25 SV* bucket_ratio(rhv) SV* rhv @@ -284,7 +283,11 @@ bucket_ratio(rhv) if (SvROK(rhv)) { rhv= SvRV(rhv); if ( SvTYPE(rhv)==SVt_PVHV ) { +#if PERL_VERSION < 25 SV *ret= Perl_hv_scalar(aTHX_ (HV*)rhv); +#else + SV *ret= Perl_hv_bucket_ratio(aTHX_ (HV*)rhv); +#endif ST(0)= ret; XSRETURN(1); } @@ -322,4 +325,3 @@ used_buckets(rhv) XSRETURN_UNDEF; } -#endif |