From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 16 Feb 2003 18:33:05 +0000 (+0000)
Subject: NO_SHORT_NAMES is better than HIDE_SHORT_NAMES.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d51482e4a79f5afa7771fe5e33778150840d40ab;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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);