use lib 't/lib';
use Variable::Magic::TestWatcher;
+my $is_5130_release = ($] == 5.013 && !$Config{git_describe}) ? 1 : 0;
+
my $wiz = init_watcher
[ qw/get set len clear free copy dup local fetch store exists delete/ ],
'scalar';
watch { $a[1] = 6; () } { set => 1 }, 'array element: set';
-$b = watch { $a[1] } { get => 1 }, 'array element: get';
+$b = watch { $a[1] } { get => ($is_5130_release ? 2 : 1) },'array element: get';
is $b, 6, 'scalar: array element: get correctly';
watch { $a[0] = 5 } { }, 'array element: set other';
watch { $h{b} = 6; () } { set => 1 }, 'hash element: set';
-$b = watch { $h{b} } { get => 1 }, 'hash element: get';
+$b = watch { $h{b} } { get => ($is_5130_release ? 2 : 1) }, 'hash element: get';
is $b, 6, 'scalar: hash element: get correctly';
watch { $h{a} = 5 } { }, 'hash element: set other';
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] = $$;