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