- $res = eval { dispell $a, $wiz };
- is($@, '', "dispell in thread $tid doesn't croak");
- is($c, 1, "dispell in thread $tid doesn't trigger magic");
- undef $b;
- eval { $b = $a };
- is($@, '', "get in thread $tid after dispell doesn't croak");
- is($b, 3, "get in thread $tid after dispell returns the right thing");
- is($c, 1, "get in thread $tid after dispell doesn't trigger magic");
- return;
+ eval { $a = 9 };
+ is($@, '', "set in thread $tid (check opname) doesn't croak");
+ if ($dispell) {
+ $res = eval { dispell $a, $wiz };
+ is($@, '', "dispell in thread $tid doesn't croak");
+ is($c, 1, "dispell in thread $tid doesn't trigger magic");
+ undef $b;
+ eval { $b = $a };
+ is($@, '', "get in thread $tid after dispell doesn't croak");
+ is($b, 9, "get in thread $tid after dispell returns the right thing");
+ is($c, 1, "get in thread $tid after dispell doesn't trigger magic");
+ }
+ return; # Ugly if not here