From b26196265106201a37b75ba3f041080e8a030290 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 31 Oct 2010 08:35:14 +0000
Subject: [PATCH] Merge the implementation of B::HE::{VAL,SVKEY_force} using
 ALIAS.

---
 ext/B/B.xs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 4ecf1d9..a98f765 100644
--- 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
-- 
2.7.4