Switch to qw<>

[perl/modules/Variable-Magic.git] / t / 13-data.t

diff --git a/t/13-data.t b/t/13-data.t
index b693f92c575cf2eb5967915925fba09f589400e1..bc4248e9e4f05d54a2fdfad687ef0a4366f3c806 100644 (file)
--- a/t/13-data.t
+++ b/t/13-data.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 35;
 
-use Variable::Magic qw/wizard getdata cast dispell/;
+use Variable::Magic qw<wizard getdata cast dispell>;
 
 my $c = 1;
 
@@ -53,7 +53,7 @@ $res = eval { dispell $a, $wiz };
 is($@, '', 'dispell doesn\'t croak');
 ok($res,   'dispell returns true');
 
-$res = eval { cast $a, $wiz, qw/z j t/ };
+$res = eval { cast $a, $wiz, qw<z j t> };
 is($@, '', 'cast with arguments doesn\'t croak');
 ok($res,   'cast with arguments returns true');