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;
ok($res, 'dispell magic 2 is valid');
SKIP: {
- skip 'No nice uvar magic for this perl', 41 unless VMG_UVAR;
+ skip 'No nice uvar magic for this perl' => 41 unless VMG_UVAR;
$n = 3;
@c = (0) x $n;