use Test::More tests => 33 + 41;
-use Variable::Magic qw/wizard cast dispell VMG_UVAR/;
+use Variable::Magic qw<wizard cast dispell VMG_UVAR>;
my $n = 3;
my @w;
$s = $h{b};
is($s, 2, 'fetch magic after dispelled 1 doesn\'t clobber');
for (0, 2) { is($c[$_], 2, "fetch magic $_ after dispelled 1"); }
-
+
$h{b} = 4;
for (0, 2) { is($c[$_], 1, "store magic $_ after dispelled 1"); }
is($h{b}, 4, 'store magic after dispelled 1 doesn\'t clobber');