This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Certain PERL_UNICODE symbols are core only
[perl5.git] / perl.h
diff --git a/perl.h b/perl.h
index 343d8de..3cabb15 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -7299,6 +7299,8 @@ extern void moncontrol(int);
 #  define PIPE_OPEN_MODE       PIPESOCK_MODE
 #endif
 
+#ifdef PERL_CORE
+
 #define PERL_MAGIC_UTF8_CACHESIZE      2
 
 #define PERL_UNICODE_STDIN_FLAG                        0x0001
@@ -7339,6 +7341,8 @@ extern void moncontrol(int);
 #define PERL_UNICODE_WIDESYSCALLS              'W'
 #define PERL_UNICODE_UTF8CACHEASSERT           'a'
 
+#endif
+
 /*
 =for apidoc_section Signals
 =for apidoc Amn|U32|PERL_SIGNALS_UNSAFE_FLAG