blob: 927f8a7ce12cc24c96efca7b052ee4bc81d0c664 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
use strict;
use warnings;
no warnings 'once';
# 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';
0
|
