diff options
author | Nicholas Clark <nick@ccl4.org> | 2021-10-16 18:06:44 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2021-10-20 15:34:23 +0000 |
commit | 33042aafe7427f88db58e555390c82dd25ef9a28 (patch) | |
tree | 56a3df0e0d6d3d27ccdabb89941863b1d942003b /t | |
parent | 7c4cc0343c223680358a798ea6826c8c3a710db3 (diff) | |
download | perl-33042aafe7427f88db58e555390c82dd25ef9a28.tar.gz |
Fix the build and tests when NODEFAULT_SHAREKEYS is defined
Defining this macro causes newHV() to create hashes without shared hash key
scalars. The default is that hashes are created with shared hash keys.
Diffstat (limited to 't')
-rw-r--r-- | t/op/tr.t | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -12,6 +12,7 @@ BEGIN { } use utf8; +require Config; plan tests => 315; @@ -1032,9 +1033,12 @@ is($s, "AxBC", "utf8, DELETE"); is($c, "\x20\x30\x40\x50\x60", "tr/\\x00-\\x1f//d"); } -($s) = keys %{{pie => 3}}; SKIP: { if (!eval { require XS::APItest }) { skip "no XS::APItest", 2 } + skip "with NODEFAULT_SHAREKEYS there are few COWs", 2 + if $Config::Config{ccflags} =~ /-DNODEFAULT_SHAREKEYS\b/; + + ($s) = keys %{{pie => 3}}; my $wasro = XS::APItest::SvIsCOW($s); ok $wasro, "have a COW"; $s =~ tr/i//; |