Make the "Switch condition not recognized" error message UTF-8 clean

[perl5.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index d2c5f5e..cd0d3fe 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -364,6 +364,7 @@ unless ($define{'USE_ITHREADS'}) {
                    PL_stashpadix
                    PL_stashpadmax
                    Perl_alloccopstash
+                   Perl_allocfilegv
                    Perl_clone_params_del
                    Perl_clone_params_new
                    Perl_parser_dup
@@ -540,6 +541,9 @@ if ($define{'PERL_GLOBAL_STRUCT'}) {
     ++$skip{$_} foreach qw(Perl_init_global_struct Perl_free_global_struct);
 }
 
+++$skip{PL_op_exec_cnt}
+    unless $define{PERL_TRACE_OPS};
+
 # functions from *.sym files
 
 my @syms = qw(globvar.sym);
@@ -627,7 +631,7 @@ if ($ARGS{PLATFORM} eq 'netware') {
 }
 
 if ($define{'USE_PERLIO'}) {
-    # Export the symols that make up the PerlIO abstraction, regardless
+    # Export the symbols that make up the PerlIO abstraction, regardless
     # of its implementation - read from a file
     push @syms, 'perlio.sym';