NO_SHORT_NAMES is better than HIDE_SHORT_NAMES.

p4raw-id: //depot/perl@18729

diff --git a/embed.h b/embed.h
index c128f45..813512a 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -16,7 +16,11 @@
 
 /* (Doing namespace management portably in C is really gross.) */
 
-#ifndef PERL_HIDE_SHORT_NAMES
+/* By defining PERL_NO_SHORT_NAMES (not done by default) the short forms
+ * (like warn instead of Perl_warn) for the API are not defined.
+ * Not defining the short forms is a good thing for cleaner embedding. */
+
+#ifndef PERL_NO_SHORT_NAMES
 
 /* Hide global symbols */
 
@@ -4954,7 +4958,7 @@
 
 #endif /* PERL_IMPLICIT_CONTEXT */
 
-#endif /* #ifndef PERL_HIDE_SHORT_NAMES */
+#endif /* #ifndef PERL_NO_SHORT_NAMES */
 
 
 /* Compatibility stubs.  Compile extensions with -DPERL_NOCOMPAT to
@@ -4997,7 +5001,7 @@
    an extra argument but grab the context pointer using the macro
    dTHX.
  */
-#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_HIDE_SHORT_NAMES)
+#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_SHORT_NAMES)
 #  define croak                                Perl_croak_nocontext
 #  define deb                          Perl_deb_nocontext
 #  define die                          Perl_die_nocontext

diff --git a/embed.pl b/embed.pl
index 6aa391e..9e5c62b 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -316,7 +316,11 @@ print EM do_not_edit ("embed.h"), <<'END';
 
 /* (Doing namespace management portably in C is really gross.) */
 
-#ifndef PERL_HIDE_SHORT_NAMES
+/* By defining PERL_NO_SHORT_NAMES (not done by default) the short forms
+ * (like warn instead of Perl_warn) for the API are not defined.
+ * Not defining the short forms is a good thing for cleaner embedding. */
+
+#ifndef PERL_NO_SHORT_NAMES
 
 /* Hide global symbols */
 
@@ -428,7 +432,7 @@ print EM <<'END';
 
 #endif /* PERL_IMPLICIT_CONTEXT */
 
-#endif /* #ifndef PERL_HIDE_SHORT_NAMES */
+#endif /* #ifndef PERL_NO_SHORT_NAMES */
 
 END
 
@@ -474,7 +478,7 @@ print EM <<'END';
    an extra argument but grab the context pointer using the macro
    dTHX.
  */
-#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_HIDE_SHORT_NAMES)
+#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_SHORT_NAMES)
 #  define croak                                Perl_croak_nocontext
 #  define deb                          Perl_deb_nocontext
 #  define die                          Perl_die_nocontext

diff --git a/pod/perlembed.pod b/pod/perlembed.pod
index 24385dd..484884e 100644 (file)
--- a/pod/perlembed.pod
+++ b/pod/perlembed.pod
@@ -1041,7 +1041,7 @@ Finally, select Build -> Build interp.exe and you're ready to go.
 =head1 Hiding Perl_
 
 If you completely hide the short forms forms of the Perl public API,
-add -DPERL_HIDE_SHORT_NAMES to the compilation flags.  This means that
+add -DPERL_NO_SHORT_NAMES to the compilation flags.  This means that
 for example instead of writing
 
     warn("%d bottles of beer on the wall", bottlecount);