Make sure miniperl compiles with -DNO_SHORT_NAMES

This simple change makes the perl core compile even with this flag.

Author: khwilliamson

embed.h

@@ -91,7 +91,7 @@
              !defined(PERL_WANT_VARARGS) */
 # endif /* !defined(PERL_NOCOMPAT) */
 #endif /* !defined(PERL_CORE) */
-#if !defined(PERL_NO_SHORT_NAMES)
+#if defined(PERL_CORE) || !defined(PERL_NO_SHORT_NAMES)
 
 /* Hide global symbols */
 
@@ -2488,6 +2488,6 @@
 # else
 #   define get_context                          Perl_get_context
 # endif
-#endif /* !defined(PERL_NO_SHORT_NAMES) */
+#endif /* defined(PERL_CORE) || !defined(PERL_NO_SHORT_NAMES) */
 
 /* ex: set ro ft=c: */

regen/embed.pl

@@ -703,7 +703,7 @@ sub generate_embed_h {
      * BEWARE that a bunch of macros don't have long names, so either must be
      * added or don't use them if you define this symbol */
 
-    #ifndef PERL_NO_SHORT_NAMES
+    #if ! defined(PERL_NO_SHORT_NAMES) || defined(PERL_CORE)
 
     /* Hide global symbols */
 
@@ -715,7 +715,7 @@ sub generate_embed_h {
 
     print $em <<~'END';
 
-    #endif      /* #ifndef PERL_NO_SHORT_NAMES */
+    #endif      /* if !defined(PERL_NO_SHORT_NAMES) || defined(PERL_CORE) */
 
     #if !defined(PERL_CORE)
     /* Compatibility stubs.  Compile extensions with -DPERL_NOCOMPAT to