summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2011-08-07 15:46:09 +0200
committerNicholas Clark <nick@ccl4.org>2011-08-07 15:46:09 +0200
commit944f470e93f75e083f15437b49be527ccd2468ba (patch)
tree7ef479dcbd3d301b923ab8523be823e7750da6c1
parent4ea805df821d52961197994f679ae3d8a5106c34 (diff)
downloadperl-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-xregen/embed.pl5
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;