perl 5.003_01: embed.pl

Add banner warning to embed.h to discourage direct changes
Insure that symbols aren't defined once with EMBVED prefix and
  again in MULTIPLICITY block

1 files changed, 12 insertions, 1 deletions

diff --git a/embed.pl b/embed.pl
index e5423dde3c..e4469c92e1 100755
--- a/embed.pl
+++ b/embed.pl
@@ -3,7 +3,10 @@
 open(EM, ">embed.h") || die "Can't create embed.h: $!\n";
 
 print EM <<'END';
-/* This file is derived from global.sym and interp.sym */
+/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
+   This file is derived from global.sym and interp.sym 
+   Any changes made here will be lost 
+*/
 
 /* (Doing namespace management portably in C is really gross.) */
 
@@ -42,6 +45,14 @@ print EM <<'END';
 
 #ifdef MULTIPLICITY
 
+/* Undefine symbols that were defined by EMBED. Somewhat ugly */
+
+#undef curcop
+#undef envgv
+#undef siggv
+#undef stack
+#undef tainting
+
 END
 
 open(INT, "<interp.sym") || die "Can't open interp.sym: $!\n";