require 5.003;
+# XXX others that may need adding
+# warnhook
+# hints
+# copline
my @extvars = qw(sv_undef sv_yes sv_no na dowarn
curcop compiling
tainting tainted stack_base stack_sp sv_arenaroot
curstash DBsub DBsingle debstash
rsfp
stdingv
+ defgv
+ errgv
+ rsfp_filters
+ perldb
+ diehook
+ dirty
+ perl_destruct_level
);
sub readsyms (\%$) {
}
readsyms %global, 'global.sym';
-readsyms %interp, 'interp.sym';
sub readvars(\%$$) {
my ($syms, $file,$pre) = @_;
}
}
-foreach my $sym (keys %interp)
- {
- warn "extra $sym in interp.sym\n"
- unless exists $intrp{$sym} || exists $thread{$sym};
- }
-
foreach my $sym (sort keys %thread)
{
warn "$sym in intrpvar.h\n" if exists $intrp{$sym};