From 858e1d20cc10250fd3c36107b4f5fff9b80332aa Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 24 Jan 2011 09:43:21 +0000
Subject: [PATCH] Propagate 2 edits made in Perl_keywords() back to
 perl_keywords.pl

7918f24d20384771 added PERL_ARGS_ASSERT_KEYWORD and 9b38784150c0aca5 combined
Perl_ckwarn_d() and Perl_warner() into Perl_ck_warner_d().
---
 perl_keyword.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/perl_keyword.pl b/perl_keyword.pl
index 73128c3..63813ab 100644
--- a/perl_keyword.pl
+++ b/perl_keyword.pl
@@ -69,6 +69,9 @@ I32
 Perl_keyword (pTHX_ const char *name, I32 len, bool all_keywords)
 {
     dVAR;
+
+    PERL_ARGS_ASSERT_KEYWORD;
+
 $switch
 unknown:
   return 0;
@@ -82,8 +85,7 @@ sub perl_keyword
 
   if ($k eq 'elseif') {
     return <<END;
-if(ckWARN_d(WARN_SYNTAX))
-  Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "elseif should be elsif");
+Perl_ck_warner_d(aTHX_ packWARN(WARN_SYNTAX), "elseif should be elsif");
 END
   }
   elsif (my $feature = $feature_kw{$k}) {
-- 
2.7.4