From d7a7ab7f19a7e36f7190cf4536889759b33507d6 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <
[email protected]>
Date: Sun, 25 Sep 2016 10:33:11 +0000
Subject: [PATCH] fix for changed scalar(%hash) return signature in perl 5.25.3
and later (fixes #2)
---
Indexed.xs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Indexed.xs b/Indexed.xs
index 1e55b41..5e33838 100644
--- a/Indexed.xs
+++ b/Indexed.xs
@@ -755,7 +755,7 @@ IXHV::SCALAR()
PPCODE:
THI_DEBUG_METHOD;
THI_CHECK_OBJECT;
-#ifdef hv_scalar
+#if defined(hv_scalar) && PERL_BCDVERSION < 0x5025003
ST(0) = hv_scalar(THIS->hv);
#else
ST(0) = sv_newmortal();
--
2.1.2
