Re: [perl #18872] File::Basename example misleading

[p5sagit/p5-mst-13.2.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index 564ded0..ef84c18 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -560,6 +560,13 @@ else {
                    )];
 }
 
+unless ($define{'PERL_COPY_ON_WRITE'}) {
+    skip_symbols [qw(
+                   Perl_sv_setsv_cow
+                   Perl_sv_release_IVX
+                 )];
+}
+
 unless ($define{'PERL_FLEXIBLE_EXCEPTIONS'}) {
     skip_symbols [qw(
                    PL_protect
@@ -643,6 +650,7 @@ unless ($define{'USE_ITHREADS'}) {
                    PL_regex_padav
                    PL_sharedsv_space
                    PL_sharedsv_space_mutex
+                   PL_dollarzero_mutex
                    Perl_dirp_dup
                    Perl_cx_dup
                    Perl_si_dup