unless (MGf_COPY) {
$SKIP = 'No copy magic for this perl';
- } elsif ($Config{useithreads} and $] le 5.008003) {
- $SKIP = 'Causes havoc during global destruction for old threaded perls';
} else {
eval "use Tie::Array";
$SKIP = 'Tie::Array required to test clear magic on tied array values' if $@;
}
skip $SKIP => 3 if $SKIP;
- diag "Using Tie::Array $Tie::Array::VERSION" if defined $Tie::Array::VERSION;
+ defined and diag "Using Tie::Array $_" for $Tie::Array::VERSION;
tie my @a, 'Tie::StdArray';
$a[0] = $$;