X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-multiple.t;h=7c92b78298f62831e47039bebb2904494011729d;hb=HEAD;hp=519312dcecc697a3807fa4e73468286ba8aba6fe;hpb=c471e8c9f86ad8817761816101358f8ae1035915;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/11-multiple.t b/t/11-multiple.t
index 519312d..7c92b78 100644
--- a/t/11-multiple.t
+++ b/t/11-multiple.t
@@ -5,7 +5,7 @@ use warnings;
 
 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;
@@ -77,7 +77,7 @@ is($@, '', 'dispell magic 2 doesn\'t croak');
 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;
@@ -125,7 +125,7 @@ SKIP: {
  $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');