diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-07-19 18:16:01 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-08-01 11:53:52 +0200 |
| commit | c36317f03bed52a819c9ee2deb01ee381e22360a (patch) | |
| tree | 53c4bf59a890c757d620d488e8b852cb76b30f09 /makedef.pl | |
| parent | ed76ea85d17f2b52978e26c4baa4c2b6d78a55b7 (diff) | |
| download | perl-c36317f03bed52a819c9ee2deb01ee381e22360a.tar.gz | |
In makedef.pl, consolidate $PLATFORM specific skip logic.
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 88 |
1 files changed, 34 insertions, 54 deletions
diff --git a/makedef.pl b/makedef.pl index 80bc6eaea4..3e35c1fa4e 100644 --- a/makedef.pl +++ b/makedef.pl @@ -267,43 +267,44 @@ if ($PLATFORM ne 'os2') { Perl_my_ntohl Perl_my_swap )]; + if ($PLATFORM eq 'vms') { + skip_symbols([qw( + PL_statusvalue_posix + )]); + } else { + skip_symbols([qw( + PL_statusvalue_vms + )]); + if ($PLATFORM ne 'aix') { + skip_symbols [qw( + PL_DBcv + PL_generation + PL_lastgotoprobe + PL_modcount + PL_timesbuf + main + )]; + } + } } -if ($PLATFORM eq 'win32') { - skip_symbols [qw( - PL_statusvalue_vms - PL_DBcv - PL_generation - PL_lastgotoprobe - PL_modcount - PL_timesbuf - main - )]; -} -elsif ($PLATFORM ne 'vms') { - skip_symbols [qw( - Perl_do_spawn - Perl_do_spawn_nowait - Perl_do_aspawn - )]; -} -if ($PLATFORM eq 'wince') { +if ($PLATFORM ne 'vms') { + # VMS does its own thing for these symbols. skip_symbols [qw( - PL_statusvalue_vms - PL_DBcv - PL_generation - PL_lastgotoprobe - PL_modcount - PL_timesbuf - main - )]; -} -elsif ($PLATFORM eq 'aix') { - skip_symbols([qw( - PL_statusvalue_vms - )]); + PL_sig_handlers_initted + PL_sig_ignoring + PL_sig_defaulting + )]; + if ($PLATFORM ne 'win32') { + skip_symbols [qw( + Perl_do_spawn + Perl_do_spawn_nowait + Perl_do_aspawn + )]; + } } -elsif ($PLATFORM eq 'os2') { + +if ($PLATFORM eq 'os2') { emit_symbols([qw( ctermid get_sysinfo @@ -378,17 +379,6 @@ elsif ($PLATFORM eq 'os2') { )]) if $define{'USE_5005THREADS'} or $define{'USE_ITHREADS'}; } -elsif ($PLATFORM eq 'netware') { - skip_symbols [qw( - PL_statusvalue_vms - PL_DBcv - PL_generation - PL_lastgotoprobe - PL_modcount - PL_timesbuf - main - )]; -} elsif ($PLATFORM eq 'vms') { emit_symbols([qw( Perl_cando @@ -473,9 +463,6 @@ elsif ($PLATFORM eq 'vms') { Perl_vmstrnenv PerlIO_openn )]); - skip_symbols([qw( - PL_statusvalue_posix - )]); } unless ($define{UNLINK_ALL_VERSIONS}) { @@ -867,13 +854,6 @@ if ($define{HAS_SIGNBIT}) { )]) } -if ($PLATFORM ne 'vms') { - # VMS does its own thing for these symbols. - skip_symbols [qw(PL_sig_handlers_initted - PL_sig_ignoring - PL_sig_defaulting)]; -} - sub readvar { my $file = shift; my $proc = shift || sub { "PL_$_[2]" }; |