From ca4d40c4ce3fbba4b15475e580cd08822781239b Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 23 Dec 2011 08:21:45 -0800
Subject: toke.c: Add assertion to feature_is_enabled

This should now only be called by macros in feature.h when PL_hints
indicates that %^H is where the features are.
---
 toke.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/toke.c b/toke.c
index 90e0b26a2d..c6e0097fd7 100644
--- a/toke.c
+++ b/toke.c
@@ -608,6 +608,8 @@ Perl_feature_is_enabled(pTHX_ const char *const name, STRLEN namelen)
 
     PERL_ARGS_ASSERT_FEATURE_IS_ENABLED;
 
+    assert(CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM);
+
     if (namelen > MAX_FEATURE_LEN)
 	return FALSE;
     memcpy(&he_name[8], name, namelen);
-- 
cgit v1.2.1