Script runs: was swallowing next char in pattern

[perl5.git] / perlapi.h

diff --git a/perlapi.h b/perlapi.h
index af0c2d5..c461593 100644 (file)
--- a/perlapi.h
+++ b/perlapi.h
@@ -129,6 +129,8 @@ END_EXTERN_C
 #define PL_hints_mutex         (*Perl_Ghints_mutex_ptr(NULL))
 #undef  PL_keyword_plugin
 #define PL_keyword_plugin      (*Perl_Gkeyword_plugin_ptr(NULL))
+#undef  PL_keyword_plugin_mutex
+#define PL_keyword_plugin_mutex        (*Perl_Gkeyword_plugin_mutex_ptr(NULL))
 #undef  PL_locale_mutex
 #define PL_locale_mutex                (*Perl_Glocale_mutex_ptr(NULL))
 #undef  PL_malloc_mutex