diff options
author | David Mitchell <davem@iabyn.com> | 2014-09-22 16:20:18 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2014-09-22 16:32:49 +0100 |
commit | c774046ba1377cc500a8a8fd88aa3cf810aad808 (patch) | |
tree | 5af5387565c02da49c572d2dad5c21d93a99f1e3 /makedef.pl | |
parent | c354df01f41f08af4a9abac9e1869124c5691916 (diff) | |
download | perl-c774046ba1377cc500a8a8fd88aa3cf810aad808.tar.gz |
globvar.sym: include PL_ prefix in names
By prepending 'PL_' to each line in globvar.sym, it
a) makes makedef.pl slightly simpler,
b) makes it easier to spot all usage of a particular var when you
do 'git grep PL_foo'
Diffstat (limited to 'makedef.pl')
-rw-r--r-- | makedef.pl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/makedef.pl b/makedef.pl index 2cfd3c4f4a..6ec3d5cc0a 100644 --- a/makedef.pl +++ b/makedef.pl @@ -697,12 +697,9 @@ unless ($define{'USE_QUADMATH'}) { foreach (@syms) { my $syms = $ARGS{TARG_DIR} . $_; open my $global, '<', $syms or die "failed to open $syms: $!\n"; - # Functions already have a Perl_ prefix - # Variables need a PL_ prefix - my $prefix = $syms =~ /var\.sym$/i ? 'PL_' : ''; while (<$global>) { next unless /^([A-Za-z].*)/; - my $symbol = "$prefix$1"; + my $symbol = "$1"; ++$export{$symbol} unless exists $skip{$symbol}; } } |