Switch to qw<>

[perl/modules/Variable-Magic.git] / t / 28-uvar.t

diff --git a/t/28-uvar.t b/t/28-uvar.t
index acc761f24f795fa0880585fe15a05ce9e452d1a2..0eaf00130eba5b5efc0c3566e6bb283ed650d053 100644 (file)
--- a/t/28-uvar.t
+++ b/t/28-uvar.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More;
 
-use Variable::Magic qw/wizard cast dispell VMG_UVAR/;
+use Variable::Magic qw<wizard cast dispell VMG_UVAR>;
 
 if (VMG_UVAR) {
  plan tests => 2 * 15 + 12 + 14 + (4 * 2 * 2 + 1 + 1) + 1;
@@ -17,7 +17,7 @@ use lib 't/lib';
 use Variable::Magic::TestWatcher;
 use Variable::Magic::TestValue;
 
-my $wiz = init_watcher [ qw/fetch store exists delete/ ], 'uvar';
+my $wiz = init_watcher [ qw<fetch store exists delete> ], 'uvar';
 
 my %h = (a => 1, b => 2, c => 3);