Merge the implementation of B::HE::{VAL,SVKEY_force} using ALIAS.

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 4ecf1d9..a98f765 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -2015,15 +2015,17 @@ MODULE = B      PACKAGE = B::HE         PREFIX = He
 B::SV
 HeVAL(he)
        B::HE he
+    ALIAS:
+       SVKEY_force = 1
+    CODE:
+       RETVAL = ix ? HeSVKEY_force(he) : HeVAL(he);
+    OUTPUT:
+       RETVAL
 
 U32
 HeHASH(he)
        B::HE he
 
-B::SV
-HeSVKEY_force(he)
-       B::HE he
-
 MODULE = B     PACKAGE = B::RHE        PREFIX = RHE_
 
 #if PERL_VERSION >= 9