perlfaq typos

[p5sagit/p5-mst-13.2.git] / embed.pl

diff --git a/embed.pl b/embed.pl
index 2ca20d0..e318df1 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -365,17 +365,7 @@ my @extras = qw(
     fprintf
 );
 
-my %skip;
-
-for $sym (qw[
-    utf8skip
-         ])
-{
-    $skip{$sym}++;
-}
-
 for $sym (sort(keys(%global),@extras)) {
-    next if exists $skip{$sym};
     print EM embedobj($sym);
 }
 
@@ -519,7 +509,7 @@ END
 
 print EM <<'END';
 
-#if 0 /* ndef MIN_PERL_DEFINE */       /* unsupported in 5.006 */
+#ifdef PERL_POLLUTE            /* unsupported in 5.006 */
 
 END