This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.h: Make sure char* is cast to U8* for unsigned comparison
[perl5.git] / makedef.pl
index 9550042..0593342 100644 (file)
@@ -274,10 +274,15 @@ else {
                         );
 }
 
-unless ($define{'PERL_OLD_COPY_ON_WRITE'}) {
+unless ($define{'PERL_OLD_COPY_ON_WRITE'}
+     || $define{'PERL_NEW_COPY_ON_WRITE'}) {
     ++$skip{Perl_sv_setsv_cow};
 }
 
+unless ($define{PERL_SAW_AMPERSAND}) {
+    ++$skip{PL_sawampersand};
+}
+
 unless ($define{'USE_REENTRANT_API'}) {
     ++$skip{PL_reentrant_buffer};
 }