From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Thu, 4 Jul 1996 01:36:06 +0000 (+0000)
Subject: perl 5.003_01: embed.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76b72cf1c23adf9204168227ceee98634e70e688;p=p5sagit%2Fp5-mst-13.2.git

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

diff --git a/embed.pl b/embed.pl
index e5423dd..e4469c9 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";