remove bogus symbols from global.sym

p4raw-id: //depot/perl@3095

1 files changed, 7 insertions, 2 deletions

diff --git a/embed.pl b/embed.pl
index 7d3039ecf7..89e15066ae 100755
--- a/embed.pl
+++ b/embed.pl
@@ -405,6 +405,11 @@ print EM <<'END';
 
 #endif	/* PERL_OBJECT */
 
+/* compatibility stubs */
+
+#define sv_setptrobj(rv,ptr,name)	sv_setref_iv(rv,name,(IV)ptr)
+#define sv_setptrref(rv,ptr)		sv_setref_iv(rv,Nullch,(IV)ptr)
+
 END
 
 close(EM);
@@ -541,7 +546,7 @@ END
 
 print EM <<'END';
 
-#ifdef PERL_POLLUTE		/* unsupported in 5.006 */
+#ifdef PERL_POLLUTE		/* disabled by default in 5.006 */
 
 END
 
@@ -551,7 +556,7 @@ for $sym (sort @extvars) {
 
 print EM <<'END';
 
-#endif /* MIN_PERL_DEFINE */
+#endif /* PERL_POLLUTE */
 END