++$skip{PL_op_exec_cnt}
unless $define{PERL_TRACE_OPS};
+++$skip{PL_hash_chars}
+ unless $define{PERL_USE_SINGLE_CHAR_HASH_CACHE};
+
# functions from *.sym files
my @syms = qw(globvar.sym);
if ($ARGS{PLATFORM} eq 'os2') {
my (%mapped, @missing);
- open MAP, 'miniperl.map' or die 'Cannot read miniperl.map';
+ open MAP, '<', 'miniperl.map' or die 'Cannot read miniperl.map';
/^\s*[\da-f:]+\s+(\w+)/i and $mapped{$1}++ foreach <MAP>;
close MAP or die 'Cannot close miniperl.map';