X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F55-unwind-multi.t;h=59c869c45514740a0caf11fc0065a5b8ea9cc33b;hb=9cc51a42b5f5145b3d1e9ed89435b5377ebdd5fe;hp=dd8c727393197fd3873028128951e5f4e9644d41;hpb=b74d16df98351c4bacb0a1a9d029ce7d7924591f;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/55-unwind-multi.t b/t/55-unwind-multi.t
index dd8c727..59c869c 100644
--- a/t/55-unwind-multi.t
+++ b/t/55-unwind-multi.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 13;
 
-use Scope::Upper qw/unwind SCOPE/;
+use Scope::Upper qw<unwind SCOPE>;
 
 my ($l1, $l2);
 
@@ -46,20 +46,20 @@ is_deeply [ a() ], [ 1 .. 12, 'in c', 'in b', 'in a' ],
 
 $l1 = 0;
 $l2 = 1;
-is_deeply [ a() ], [ 1 .. 12, qw/eval from the sub c/, 'in b', 'in a' ],
+is_deeply [ a() ], [ 1 .. 12, qw<eval from the sub c>, 'in b', 'in a' ],
           'l1=0, l2=1';
 
 $l1 = 0;
 $l2 = 2;
-is_deeply [ a() ], [ qw/eval from the sub c/, 'in a' ],
+is_deeply [ a() ], [ qw<eval from the sub c>, 'in a' ],
           'l1=0, l2=2';
 
 $l1 = 4;
 $l2 = 999;
-is_deeply [ a() ], [ 1 .. 12, qw/from the sub c/, 'in b', 'in a' ],
+is_deeply [ a() ], [ 1 .. 12, qw<from the sub c>, 'in b', 'in a' ],
           'l1=4, l2=?';
 
 $l1 = 5;
 $l2 = 999;
-is_deeply [ a() ], [ qw/from the sub c/, 'in a' ],
+is_deeply [ a() ], [ qw<from the sub c>, 'in a' ],
           'l1=5, l2=?';