provide -DPERL_POLLUTE

p4raw-id: //depot/perl@2226

diff --git a/embed.pl b/embed.pl
index 2ca20d0..709acc6 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -519,7 +519,7 @@ END
 
 print EM <<'END';
 
-#if 0 /* ndef MIN_PERL_DEFINE */       /* unsupported in 5.006 */
+#ifdef PERL_POLLUTE            /* unsupported in 5.006 */
 
 END
 

diff --git a/embedvar.h b/embedvar.h
index a0bbea0..297db71 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -906,7 +906,7 @@
 #endif /* PERL_GLOBAL_STRUCT */
 
 
-#if 0 /* ndef MIN_PERL_DEFINE */       /* unsupported in 5.006 */
+#ifdef PERL_POLLUTE            /* unsupported in 5.006 */
 
 #define DBsingle               PL_DBsingle
 #define DBsub                  PL_DBsub