From d7a7ab7f19a7e36f7190cf4536889759b33507d6 Mon Sep 17 00:00:00 2001 From: Slaven Rezic 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