1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict;
use warnings;
no warnings 'once';
if ($^O eq 'dec_osf') {
print "1..0 # $^O cannot handle this test\n";
exit(0);
}
# 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
|