diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-01-03 05:58:22 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-01-16 17:58:48 -0800 |
commit | 7976241f32debff8fe33d2b320b860e33b00c47e (patch) | |
tree | a6f3482fc2979fb20e6de26f2b756e3425f37539 /t/re/uniprops.t | |
parent | bba82a09f92863efc93eb64aa08098141ae164ab (diff) | |
download | perl-7976241f32debff8fe33d2b320b860e33b00c47e.tar.gz |
Skip t/re/uniprops.t under PERL_DEBUG_READONLY_COW
Under Linux, using mmap for all memory allocation stops working when we
get up to 70,000 lines of code. So just skip it.
Diffstat (limited to 't/re/uniprops.t')
-rw-r--r-- | t/re/uniprops.t | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/t/re/uniprops.t b/t/re/uniprops.t index fea734dd30..927f8a7ce1 100644 --- a/t/re/uniprops.t +++ b/t/re/uniprops.t @@ -1,8 +1,18 @@ use strict; use warnings; +no warnings 'once'; -# This is just a wrapper for a generated file. Assumes being run from 't' -# directory +# This is a wrapper for a generated file. Assumes being run from 't' +# directory. + +# It is skipped by default under PERL_DEBUG_READONLY_COW, but you can run +# it directly via: cd t; ./perl ../lib/unicore/TestProp.pl + +require Config; +if ($Config::Config{ccflags} =~ /(?:^|\s)-DPERL_DEBUG_READONLY_COW\b/) { + print "1..0 # Skip PERL_DEBUG_READONLY_COW\n"; + exit; +} do '../lib/unicore/TestProp.pl'; |