s/Perl_utf8skip/PL_utf8skip/g

p4raw-id: //depot/perl@2241

1 files changed, 0 insertions, 10 deletions

diff --git a/embed.pl b/embed.pl
index 709acc60e0..e318df10f3 100755
--- 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);
 }