This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
test_bootstrap.t: Skip PL_sawampersand tests
authorFather Chrysostomos <sprout@cpan.org>
Sun, 25 Nov 2012 22:04:05 +0000 (14:04 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 27 Nov 2012 15:05:03 +0000 (07:05 -0800)
unless PERL_SAWAMPERSAND is defined.

t/porting/test_bootstrap.t

index e59feaa..654eaac 100644 (file)
@@ -49,7 +49,17 @@ while (my $file = <$fh>) {
        unless $file eq 'comp/require.t'
 }
 
-# There are regression tests using test.pl that don't want PL_sawampersand set
+# There are regression tests using test.pl that don't want PL_sawampersand
+# set.  Or at least that was the case until PL_sawampersand was disabled
+# and replaced with copy-on-write.
+
+# We still allow PL_sawampersand to be enabled with
+# -Accflags=-DPERL_SAWAMPERSAND, so when that is defined we can still run
+# these tests.  When it is not enabled, PL_sawampersand makes no observable
+# difference so the tests fail.
+
+require Config;
+exit unless "@{[Config::bincompat_options()]}" =~ /\bPERL_SAWAMPERSAND\b/;
 
 # This very much relies on a bug in the regexp implementation, but for now it's
 # the best way to work out whether PL_sawampersand is true.