From 48c0e89d40bfde5337dd013112467554427c1279 Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Mon, 8 Aug 2016 20:06:01 +0200
Subject: Move hash introspection routines into Hash::Util/Util.xs and out of
 universal.c

---
 ext/Hash-Util/Util.xs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'ext/Hash-Util')

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
-- 
cgit v1.2.1