summaryrefslogtreecommitdiff
path: root/t/re/uniprops.t
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-01-03 05:58:22 -0800
committerFather Chrysostomos <sprout@cpan.org>2014-01-16 17:58:48 -0800
commit7976241f32debff8fe33d2b320b860e33b00c47e (patch)
treea6f3482fc2979fb20e6de26f2b756e3425f37539 /t/re/uniprops.t
parentbba82a09f92863efc93eb64aa08098141ae164ab (diff)
downloadperl-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.t14
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';