diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-07-26 14:20:25 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-08-01 11:53:55 +0200 |
| commit | 9db1545aca9c10c4b07c997070af624ab9d2e3df (patch) | |
| tree | 986bb0e8fcae338814dffe49992dea62b5134da7 /makedef.pl | |
| parent | ed463ba81165c7e02411caa466b1ee77b9f5b07b (diff) | |
| download | perl-9db1545aca9c10c4b07c997070af624ab9d2e3df.tar.gz | |
In makedef.pl, no need to loop over a 1 item list.
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/makedef.pl b/makedef.pl index 4d53f447a2..65f019d160 100644 --- a/makedef.pl +++ b/makedef.pl @@ -926,9 +926,7 @@ for my $syms (@syms) { # variables if ($define{'MULTIPLICITY'} && $define{PERL_GLOBAL_STRUCT}) { - for my $f ($perlvars_h) { - try_symbols(readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" })); - } + try_symbols(readvar($perlvars_h, sub { "Perl_" . $_[1] . $_[2] . "_ptr" })); # XXX AIX seems to want the perlvars.h symbols, for some reason if ($PLATFORM eq 'aix' or $PLATFORM eq 'os2') { # OS/2 needs PL_thr_key try_symbols(readvar($perlvars_h)); |