diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-08 20:08:51 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-08 20:08:51 +0000 |
| commit | 7697f15a3fd1384d6a7200edf7cc75ff66663a88 (patch) | |
| tree | c789c37605ae2a2b0219f46f49941f3ec3a70849 /makedef.pl | |
| parent | a5d93797914e628e606359a11a575330706ffcc9 (diff) | |
| download | perl-7697f15a3fd1384d6a7200edf7cc75ff66663a88.tar.gz | |
Remove references to pp.sym from makedef.pl, unused since 2000.
954c1994944eafa7 removed the only user of pp.sym, but not the code to
manipulate the filename.
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/makedef.pl b/makedef.pl index a7df495a88..549e8f0004 100644 --- a/makedef.pl +++ b/makedef.pl @@ -102,7 +102,6 @@ my $config_h = "config.h"; my $intrpvar_h = "intrpvar.h"; my $perlvars_h = "perlvars.h"; my $global_sym = "global.sym"; -my $pp_sym = "pp.sym"; my $globvar_sym = "globvar.sym"; my $perlio_sym = "perlio.sym"; my $static_ext = ""; @@ -112,8 +111,7 @@ if ($PLATFORM eq 'aix') { } elsif ($PLATFORM =~ /^win(?:32|ce)$/ || $PLATFORM eq 'netware') { $CCTYPE = "MSVC" unless defined $CCTYPE; - foreach ($intrpvar_h, $perlvars_h, $global_sym, - $pp_sym, $globvar_sym, $perlio_sym) { + foreach ($intrpvar_h, $perlvars_h, $global_sym, $globvar_sym, $perlio_sym) { s!^!..\\!; } } @@ -966,7 +964,7 @@ if ($define{'PERL_GLOBAL_STRUCT'}) { # functions from *.sym files -my @syms = ($global_sym, $globvar_sym); # $pp_sym is not part of the API +my @syms = ($global_sym, $globvar_sym); # Symbols that are the public face of the PerlIO layers implementation # These are in _addition to_ the public face of the abstraction |