In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2748c776108ea3c2dab18eeb6a710e819486df17?hp=c50695434124a900046551c70bca4c137df1eeea>
- Log ----------------------------------------------------------------- commit 2748c776108ea3c2dab18eeb6a710e819486df17 Author: Nicholas Clark <[email protected]> Date: Wed Sep 22 17:32:15 2010 +0100 Remove @extvars from embed.pl It's been unused since PERL_POLLUTE was removed in cfef31b27d1a56cd. ----------------------------------------------------------------------- Summary of changes: embed.pl | 23 ----------------------- 1 files changed, 0 insertions(+), 23 deletions(-) diff --git a/embed.pl b/embed.pl index 386b34d..22d8780 100755 --- a/embed.pl +++ b/embed.pl @@ -16,8 +16,6 @@ # perlvars.h # pp.sym (which has been generated by opcode.pl) # -# plus from the values hardcoded into this script in @extvars. -# # Accepts the standard regen_lib -q and -v args. # # This script is normally invoked from regen.pl. @@ -293,27 +291,6 @@ walk_table(\&write_protos, "proto.h", "/* ex: set ro: */\n"); warn "$unflagged_pointers pointer arguments to clean up\n" if $unflagged_pointers; walk_table(\&write_global_sym, "global.sym", "# ex: set ro:\n"); -# 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 - no_modify - curstash DBsub DBsingle DBassertion debstash - rsfp - stdingv - defgv - errgv - rsfp_filters - perldb - diehook - dirty - perl_destruct_level - ppaddr - ); - sub readsyms (\%$) { my ($syms, $file) = @_; local (*FILE, $_); -- Perl5 Master Repository
