From 944f470e93f75e083f15437b49be527ccd2468ba Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sun, 7 Aug 2011 15:46:09 +0200 Subject: [PATCH] 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. --- regen/embed.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/regen/embed.pl b/regen/embed.pl index dac4d45..20bb177 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; -- 1.8.3.1