]> git.vpit.fr Git - perl/modules/Variable-Magic.git/blobdiff - t/11-multiple.t
Switch to qw<>
[perl/modules/Variable-Magic.git] / t / 11-multiple.t
index 519312dcecc697a3807fa4e73468286ba8aba6fe..07b1899f6f43175ba6599bc16a6634465d971c62 100644 (file)
@@ -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;