summaryrefslogtreecommitdiff
path: root/makedef.pl
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-11-08 11:25:49 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-11-08 11:25:49 +0000
commitd18c61170a30691556a1da7413e13241a92f4e0a (patch)
tree58efea7fd3e3f003a26aa8ba1af6e4d6e9bd6e10 /makedef.pl
parent5c831c245cbd15531aac8207bd2cc7d8bf7a2bab (diff)
downloadperl-d18c61170a30691556a1da7413e13241a92f4e0a.tar.gz
preliminary support for perl_clone() (still needs work in
the following areas: SVOPs must indirect via pad; context stack, scope stack, and runlevels must be cloned; must hook up the virtualized pseudo-process support provided by "host"; ...) p4raw-id: //depot/perl@4538
Diffstat (limited to 'makedef.pl')
-rw-r--r--makedef.pl20
1 files changed, 20 insertions, 0 deletions
diff --git a/makedef.pl b/makedef.pl
index 63a09bdad0..8ec55bdd35 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -359,6 +359,26 @@ Perl_unlock_condpair
Perl_magic_mutexfree
)];
}
+
+unless ($define{'USE_ITHREADS'})
+ {
+ skip_symbols [qw(
+PL_sv_table
+Perl_dirp_dup
+Perl_fp_dup
+Perl_gp_dup
+Perl_he_dup
+Perl_mg_dup
+Perl_re_dup
+Perl_sv_dup
+Perl_sys_intern_dup
+Perl_sv_table_fetch
+Perl_sv_table_new
+Perl_sv_table_split
+Perl_sv_table_store
+)];
+ }
+
unless ($define{'USE_THREADS'} or $define{'PERL_IMPLICIT_CONTEXT'}
or $define{'PERL_OBJECT'})
{