diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-08-07 15:46:09 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-08-07 15:46:09 +0200 |
commit | 944f470e93f75e083f15437b49be527ccd2468ba (patch) | |
tree | 7ef479dcbd3d301b923ab8523be823e7750da6c1 | |
parent | 4ea805df821d52961197994f679ae3d8a5106c34 (diff) | |
download | perl-944f470e93f75e083f15437b49be527ccd2468ba.tar.gz |
In embed.pl, remove unused parameter $keep_pre from readvars().
$keep_pre was added by commit c6af7a1aaf1f569e in 1998, and the last user
removed by commit 51371543ca1a75ed in 1999.
-rwxr-xr-x | regen/embed.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/regen/embed.pl b/regen/embed.pl index dac4d45089..20bb177e24 100755 --- a/regen/embed.pl +++ b/regen/embed.pl @@ -360,8 +360,8 @@ EOF warn "$unflagged_pointers pointer arguments to clean up\n" if $unflagged_pointers; walk_table(\&write_global_sym, "global.sym"); -sub readvars(\%$$@) { - my ($syms, $file,$pre,$keep_pre) = @_; +sub readvars(\%$$) { + my ($syms, $file, $pre) = @_; local (*FILE, $_); open(FILE, "< $file") or die "embed.pl: Can't open $file: $!\n"; @@ -369,7 +369,6 @@ sub readvars(\%$$@) { s/[ \t]*#.*//; # Delete comments. if (/PERLVARA?I?C?\($pre(\w+)/) { my $sym = $1; - $sym = $pre . $sym if $keep_pre; warn "duplicate symbol $sym while processing $file line $.\n" if exists $$syms{$sym}; $$syms{$sym} = $pre || 1; |