Switch to qw<>

diff --git a/lib/Scope/Upper.pm b/lib/Scope/Upper.pm
index 6bce12aaf43e6b86e94ff8847a9fc7f41a021a1f..63ca3bf77245e994384b12bec989e4d2a497eda0 100644 (file)
--- a/lib/Scope/Upper.pm
+++ b/lib/Scope/Upper.pm
@@ -24,7 +24,7 @@ L</reap>, L</localize>, L</localize_elem>, L</localize_delete> and L</WORDS> :
 
     package Scope;
 
-    use Scope::Upper qw/reap localize localize_elem localize_delete :words/;
+    use Scope::Upper qw<reap localize localize_elem localize_delete :words>;
 
     sub new {
      my ($class, $name) = @_;
@@ -87,7 +87,7 @@ L</unwind> and L</want_at> :
 
     package Try;
 
-    use Scope::Upper qw/unwind want_at :words/;
+    use Scope::Upper qw<unwind want_at :words>;
 
     sub try (&) {
      my @result = shift->();
@@ -99,14 +99,14 @@ L</unwind> and L</want_at> :
 
     sub zap {
      try {
-      my @things = qw/a b c/;
+      my @things = qw<a b c>;
       return @things; # returns to try() and then outside zap()
       # not reached
      };
      # not reached
     }
 
-    my @stuff = zap(); # @stuff contains qw/a b c/
+    my @stuff = zap(); # @stuff contains qw<a b c>
     my $stuff = zap(); # $stuff contains 3
 
 =head1 DESCRIPTION
@@ -380,13 +380,13 @@ Same goes for the words L</TOP>, L</HERE>, L</UP>, L</SUB>, L</EVAL>, L</SCOPE>
 
 =cut
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
 our @EXPORT      = ();
 our %EXPORT_TAGS = (
- funcs  => [ qw/reap localize localize_elem localize_delete unwind want_at/ ],
- words  => [ qw/TOP HERE UP SUB EVAL SCOPE CALLER/ ],
- consts => [ qw/SU_THREADSAFE/ ],
+ funcs  => [ qw<reap localize localize_elem localize_delete unwind want_at> ],
+ words  => [ qw<TOP HERE UP SUB EVAL SCOPE CALLER> ],
+ consts => [ qw<SU_THREADSAFE> ],
 );
 our @EXPORT_OK   = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];

diff --git a/samples/tag.pl b/samples/tag.pl
index c414c0790b843e1244f62cc882a810504a527d58..0e39930d2f7c03eda3ba55ad5e4bbb1d47998039 100644 (file)
--- a/samples/tag.pl
+++ b/samples/tag.pl
@@ -7,7 +7,7 @@ use blib;
 
 package Scope;
 
-use Scope::Upper qw/reap localize localize_elem localize_delete :words/;
+use Scope::Upper qw<reap localize localize_elem localize_delete :words>;
 
 sub new {
  my ($class, $name) = @_;

diff --git a/samples/try.pl b/samples/try.pl
index 7e1cb2a7d3019c91881b40ec0add369a4f773512..e207e14beef5e9b22bcd8213ed21e0e31fc6a79e 100644 (file)
--- a/samples/try.pl
+++ b/samples/try.pl
@@ -5,7 +5,7 @@ use warnings;
 
 use blib;
 
-use Scope::Upper qw/unwind want_at :words/;
+use Scope::Upper qw<unwind want_at :words>;
 
 sub try (&) {
  my @result = shift->();
@@ -15,13 +15,13 @@ sub try (&) {
 
 sub zap {
  try {
-  my @things = qw/a b c/;
+  my @things = qw<a b c>;
   return @things; # returns to try() and then outside zap()
  };
  print "NOT REACHED\n";
 }
 
-my @stuff = zap(); # @stuff contains qw/a b c/
+my @stuff = zap(); # @stuff contains qw<a b c>
 my $stuff = zap(); # $stuff contains 3
 
 print "zap() returns @stuff in list context and $stuff in scalar context\n";

diff --git a/t/05-words.t b/t/05-words.t
index 1141a582821f84c8d187ea20e61d05774287504a..bcb3ac9bcc806e5b986df0706cef95818c3e5f27 100644 (file)
--- a/t/05-words.t
+++ b/t/05-words.t
@@ -13,7 +13,7 @@ BEGIN {
  }
 }
 
-use Scope::Upper qw/:words/;
+use Scope::Upper qw<:words>;
 
 # This test is for internal use only and doesn't imply any kind of future
 # compatibility on what the words should actually return.

diff --git a/t/06-want_at.t b/t/06-want_at.t
index 8262255907b626888a11c959683ce53e13af6cbb..12df3f0d7ded69f826c4a89a7214ee5493ae6f77 100644 (file)
--- a/t/06-want_at.t
+++ b/t/06-want_at.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 19;
 
-use Scope::Upper qw/want_at UP HERE/;
+use Scope::Upper qw<want_at UP HERE>;
 
 sub check {
  my ($w, $exp, $desc) = @_;

diff --git a/t/11-reap-level.t b/t/11-reap-level.t
index 873e901d6a7580ee3c3830223e84e9faa4a8d818..d5f639eb5de05537c7a666cafbb72983ee57a83b 100644 (file)
--- a/t/11-reap-level.t
+++ b/t/11-reap-level.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scope::Upper qw/reap UP HERE/;
+use Scope::Upper qw<reap UP HERE>;
 
 use Scope::Upper::TestGenerator;
 

diff --git a/t/12-reap-block.t b/t/12-reap-block.t
index f8c85850b686eb4404ae03fc88007c425c7ff817..a4e3d17badc9ade3ebec1b1504e8a8d1b7850327 100644 (file)
--- a/t/12-reap-block.t
+++ b/t/12-reap-block.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scope::Upper qw/reap UP HERE/;
+use Scope::Upper qw<reap UP HERE>;
 
 use Scope::Upper::TestGenerator;
 

diff --git a/t/13-reap-ctl.t b/t/13-reap-ctl.t
index 39a0bb4e3f74162cb1cae2079031cd6e70125457..3f5db2be79f13752335145c7d190a0a3554f8d87 100644 (file)
--- a/t/13-reap-ctl.t
+++ b/t/13-reap-ctl.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 41 + 30 + 4 * 7;
 
-use Scope::Upper qw/reap UP HERE/;
+use Scope::Upper qw<reap UP HERE>;
 
 our ($x, $y);
 

diff --git a/t/15-reap-multi.t b/t/15-reap-multi.t
index 7fe8195c06be8661913668f980435d649d5dfae1..4c410893d5c0b1b9076e86bcb23d28199ae54929 100644 (file)
--- a/t/15-reap-multi.t
+++ b/t/15-reap-multi.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 8 + 18 + 4 + 8 + 11 + 5 + 17;
 
-use Scope::Upper qw/reap UP HERE/;
+use Scope::Upper qw<reap UP HERE>;
 
 my $x;
 

diff --git a/t/16-reap-numerous.t b/t/16-reap-numerous.t
index d876e0785db2a40ea398a149b24b9883b5b6b98b..f130b68ee8f9cdac2610c18e8539fb997b108444 100644 (file)
--- a/t/16-reap-numerous.t
+++ b/t/16-reap-numerous.t
@@ -8,7 +8,7 @@ BEGIN { $n = 1000; }
 
 use Test::More tests => $n;
 
-use Scope::Upper qw/reap UP/;
+use Scope::Upper qw<reap UP>;
 
 my $count;
 

diff --git a/t/20-localize-target.t b/t/20-localize-target.t
index ba77ea88a62b6f7bf677435057de5b66359501d9..c352456f15ef5fb1043622f48d332f3c5fd83446 100644 (file)
--- a/t/20-localize-target.t
+++ b/t/20-localize-target.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 70 + 4;
 
-use Scope::Upper qw/localize UP HERE/;
+use Scope::Upper qw<localize UP HERE>;
 
 # Scalars
 

diff --git a/t/21-localize-level.t b/t/21-localize-level.t
index 35a660072fbb7fbad20c3f840cc794cf37b0ca73..c1dcabca4f271d1cc36a88d3693749a791bf3a19 100644 (file)
--- a/t/21-localize-level.t
+++ b/t/21-localize-level.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scope::Upper qw/localize UP HERE/;
+use Scope::Upper qw<localize UP HERE>;
 
 use Scope::Upper::TestGenerator;
 

diff --git a/t/22-localize-block.t b/t/22-localize-block.t
index a41fcd0aa9ad174282da6f4ca47011efe7d5fb2f..ea189d8eb7e9a9446897792b4b7b693c6ca09ac7 100644 (file)
--- a/t/22-localize-block.t
+++ b/t/22-localize-block.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scope::Upper qw/localize UP HERE/;
+use Scope::Upper qw<localize UP HERE>;
 
 use Scope::Upper::TestGenerator;
 

diff --git a/t/23-localize-ctl.t b/t/23-localize-ctl.t
index 13fb193a6266ebc2d71c8c3a371b041619d10d73..0bd356368d46d85c46e67c98d09ead8ee07fae9b 100644 (file)
--- a/t/23-localize-ctl.t
+++ b/t/23-localize-ctl.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 44 + 30;
 
-use Scope::Upper qw/localize UP HERE/;
+use Scope::Upper qw<localize UP HERE>;
 
 our ($x, $y);
 

diff --git a/t/24-localize-magic.t b/t/24-localize-magic.t
index 3bcb42307f6b4adb3114fa49dc52165c64a53891..9dc6a3221c247c2307e0f3ba507dee0321f7cec0 100644 (file)
--- a/t/24-localize-magic.t
+++ b/t/24-localize-magic.t
@@ -3,11 +3,11 @@
 use strict;
 use warnings;
 
-use Scope::Upper qw/localize UP HERE/;
+use Scope::Upper qw<localize UP HERE>;
 
 use Test::More tests => 5;
 
-my @a = qw/a b c/;
+my @a = qw<a b c>;
 
 {
  local $" = '';

diff --git a/t/25-localize-multi.t b/t/25-localize-multi.t
index e696b547c518da132345159a28ca09fd98d7a34e..9ccd8f8f344e3c2ce066a2f726cf14f6847e6417 100644 (file)
--- a/t/25-localize-multi.t
+++ b/t/25-localize-multi.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 10 + 5 + 6;
 
-use Scope::Upper qw/localize UP HERE/;
+use Scope::Upper qw<localize UP HERE>;
 
 our $x;
 

diff --git a/t/26-localize-numerous.t b/t/26-localize-numerous.t
index a33a4e07eccc30e573e52b01372f446a3b1a8f5e..65e115a6f0891b8d63f11a4b8fd71d85f5f6425b 100644 (file)
--- a/t/26-localize-numerous.t
+++ b/t/26-localize-numerous.t
@@ -8,7 +8,7 @@ BEGIN { $n = 1000; }
 
 use Test::More tests => 3;
 
-use Scope::Upper qw/localize UP/;
+use Scope::Upper qw<localize UP>;
 
 our $x = 0;
 our $z = $n;

diff --git a/t/30-localize_elem-target.t b/t/30-localize_elem-target.t
index 1e6e975c468cc82dd747ba72974c736744d05458..878670fcba5036a8e1d381b7f14a8d67a282ffec 100644 (file)
--- a/t/30-localize_elem-target.t
+++ b/t/30-localize_elem-target.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 25 + 12;
 
-use Scope::Upper qw/localize_elem UP HERE/;
+use Scope::Upper qw<localize_elem UP HERE>;
 
 # Arrays
 

diff --git a/t/31-localize_elem-level.t b/t/31-localize_elem-level.t
index 056ec6e839ed93570da72ed1c06a2567fd6777cb..790147fb332d94d7c5b2451a5b9f921659066e74 100644 (file)
--- a/t/31-localize_elem-level.t
+++ b/t/31-localize_elem-level.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scope::Upper qw/localize_elem UP HERE/;
+use Scope::Upper qw<localize_elem UP HERE>;
 
 use Scope::Upper::TestGenerator;
 

diff --git a/t/32-localize_elem-block.t b/t/32-localize_elem-block.t
index ec9fb9f137aed34b59f0e1918ed53135b4b79daa..a1f4d4751602aa2c363093536ba23b2c2cbe580c 100644 (file)
--- a/t/32-localize_elem-block.t
+++ b/t/32-localize_elem-block.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scope::Upper qw/localize_elem UP HERE/;
+use Scope::Upper qw<localize_elem UP HERE>;
 
 use Scope::Upper::TestGenerator;
 

diff --git a/t/34-localize_elem-magic.t b/t/34-localize_elem-magic.t
index 361f77d90a3ddccd50d2e537efccc1d694535cef..307db88d298f9544089ab024e0e168a81e719cd1 100644 (file)
--- a/t/34-localize_elem-magic.t
+++ b/t/34-localize_elem-magic.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Scope::Upper qw/localize_elem UP HERE/;
+use Scope::Upper qw<localize_elem UP HERE>;
 
 use Test::More tests => 8;
 

diff --git a/t/36-localize_elem-numerous.t b/t/36-localize_elem-numerous.t
index 95247d8d0ccaf6f3649bf0864bfe5d1df61907d2..31cc1b79ec9dc7d76d84db431eef6e1b3915e339 100644 (file)
--- a/t/36-localize_elem-numerous.t
+++ b/t/36-localize_elem-numerous.t
@@ -8,7 +8,7 @@ BEGIN { $n = 1000; }
 
 use Test::More tests => 3;
 
-use Scope::Upper qw/localize_elem UP/;
+use Scope::Upper qw<localize_elem UP>;
 
 our @A = ((0) x $n);
 

diff --git a/t/40-localize_delete-target.t b/t/40-localize_delete-target.t
index 044ca60b14c0f9dbed26146da2ccdf67285c1185..26a81952010a26c7a3e43b16c7329f0a56e949af 100644 (file)
--- a/t/40-localize_delete-target.t
+++ b/t/40-localize_delete-target.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 53 + 4;
 
-use Scope::Upper qw/localize_delete UP HERE/;
+use Scope::Upper qw<localize_delete UP HERE>;
 
 # Arrays
 

diff --git a/t/41-localize_delete-level.t b/t/41-localize_delete-level.t
index e3462fcb05429213e378b90128d49267fe0caf33..b00386d8fd7e1f8b98aaa3a31e8477504afeb249 100644 (file)
--- a/t/41-localize_delete-level.t
+++ b/t/41-localize_delete-level.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scope::Upper qw/localize_delete UP HERE/;
+use Scope::Upper qw<localize_delete UP HERE>;
 
 use Scope::Upper::TestGenerator;
 

diff --git a/t/44-localize_delete-magic.t b/t/44-localize_delete-magic.t
index bf0c43d6eb6cc3ffe40b9c103fd6dee8c600f8f3..1a6282934bc081ecbd2ec59b974bb33300942bce 100644 (file)
--- a/t/44-localize_delete-magic.t
+++ b/t/44-localize_delete-magic.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Scope::Upper qw/localize_delete UP HERE/;
+use Scope::Upper qw<localize_delete UP HERE>;
 
 use Test::More tests => 9;
 

diff --git a/t/46-localize_delete-numerous.t b/t/46-localize_delete-numerous.t
index 183dadc74849b8c88a7e699690f7bbe24492d4bd..e468acddc56ec81c79c1cea720617ed30f19b44b 100644 (file)
--- a/t/46-localize_delete-numerous.t
+++ b/t/46-localize_delete-numerous.t
@@ -8,7 +8,7 @@ BEGIN { $n = 1000; }
 
 use Test::More tests => 3;
 
-use Scope::Upper qw/localize_delete UP/;
+use Scope::Upper qw<localize_delete UP>;
 
 our @A = (1 .. $n);
 

diff --git a/t/50-unwind-target.t b/t/50-unwind-target.t
index 430424091d7505145fb518c829d226b8c701300a..3c7a21d278b6bdd9b0c969c6a9051dbc3e56c11f 100644 (file)
--- a/t/50-unwind-target.t
+++ b/t/50-unwind-target.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 4;
 
-use Scope::Upper qw/unwind/;
+use Scope::Upper qw<unwind>;
 
 my @res;
 

diff --git a/t/55-unwind-multi.t b/t/55-unwind-multi.t
index dd8c727393197fd3873028128951e5f4e9644d41..59c869c45514740a0caf11fc0065a5b8ea9cc33b 100644 (file)
--- 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=?';

diff --git a/t/56-unwind-context.t b/t/56-unwind-context.t
index 29733645b8ed552982237e1cc4b0b615362bcfd7..2779c9d50d2a4c69f066e06a8f52422eeb85473e 100644 (file)
--- a/t/56-unwind-context.t
+++ b/t/56-unwind-context.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 33;
 
-use Scope::Upper qw/unwind SUB/;
+use Scope::Upper qw<unwind SUB>;
 
 my ($res, @res);
 
@@ -13,7 +13,7 @@ my ($res, @res);
 
 sub {
  $res = 1;
- unwind(qw/a b c/ => SUB);
+ unwind(qw<a b c> => SUB);
  $res = 0;
 }->(0);
 ok $res, 'unwind in void context at sub to void';
@@ -21,7 +21,7 @@ ok $res, 'unwind in void context at sub to void';
 sub {
  $res = 1;
  eval {
-  unwind(qw/d e f/ => SUB);
+  unwind(qw<d e f> => SUB);
  };
  $res = 0;
 }->(0);
@@ -30,7 +30,7 @@ ok $res, 'unwind in void context at sub across eval to void';
 sub {
  $res = 1;
  for (1 .. 5) {
-  unwind qw/g h i/ => SUB;
+  unwind qw<g h i> => SUB;
  }
  $res = 0;
 }->(0);
@@ -39,14 +39,14 @@ ok $res, 'unwind in void context at sub across loop to void';
 # --- Void to scalar ----------------------------------------------------------
 
 $res = sub {
- unwind(qw/a b c/ => SUB);
+ unwind(qw<a b c> => SUB);
  return 'XXX';
 }->(0);
 is $res, 'c', 'unwind in void context at sub to scalar';
 
 $res = sub {
  eval {
-  unwind qw/d e f/ => SUB;
+  unwind qw<d e f> => SUB;
  };
  return 'XXX';
 }->(0);
@@ -54,13 +54,13 @@ is $res, 'f', 'unwind in void context at sub across eval to scalar';
 
 $res = sub {
  for (1 .. 5) {
-  unwind qw/g h i/ => SUB;
+  unwind qw<g h i> => SUB;
  }
 }->(0);
 is $res, 'i', 'unwind in void context at sub across loop to scalar';
 
 $res = sub {
- for (6, unwind qw/j k l/ => SUB) {
+ for (6, unwind qw<j k l> => SUB) {
   $res = 'NO';
  }
  return 'XXX';
@@ -70,31 +70,31 @@ is $res, 'l', 'unwind in void context at sub across loop iterator to scalar';
 # --- Void to list ------------------------------------------------------------
 
 @res = sub {
- unwind qw/a b c/ => SUB;
+ unwind qw<a b c> => SUB;
  return 'XXX';
 }->(0);
-is_deeply \@res, [ qw/a b c/ ], 'unwind in void context at sub to list';
+is_deeply \@res, [ qw<a b c> ], 'unwind in void context at sub to list';
 
 @res = sub {
  eval {
-  unwind qw/d e f/ => SUB;
+  unwind qw<d e f> => SUB;
  };
  return 'XXX';
 }->(0);
-is_deeply \@res, [ qw/d e f/ ], 'unwind in void context at sub across eval to list';
+is_deeply \@res, [ qw<d e f> ], 'unwind in void context at sub across eval to list';
 
 @res = sub {
  for (1 .. 5) {
-  unwind qw/g h i/ => SUB;
+  unwind qw<g h i> => SUB;
  }
 }->(0);
-is_deeply \@res, [ qw/g h i/ ], 'unwind in void context at sub across loop to list';
+is_deeply \@res, [ qw<g h i> ], 'unwind in void context at sub across loop to list';
 
 # --- Scalar to void ----------------------------------------------------------
 
 sub {
  $res = 1;
- my $temp = unwind(qw/a b c/ => SUB);
+ my $temp = unwind(qw<a b c> => SUB);
  $res = 0;
 }->(0);
 ok $res, 'unwind in scalar context at sub to void';
@@ -102,7 +102,7 @@ ok $res, 'unwind in scalar context at sub to void';
 sub {
  $res = 1;
  my $temp = eval {
-  unwind(qw/d e f/ => SUB);
+  unwind(qw<d e f> => SUB);
  };
  $res = 0;
 }->(0);
@@ -111,7 +111,7 @@ ok $res, 'unwind in scalar context at sub across eval to void';
 sub {
  $res = 1;
  for (1 .. 5) {
-  my $temp = (unwind qw/g h i/ => SUB);
+  my $temp = (unwind qw<g h i> => SUB);
  }
  $res = 0;
 }->(0);
@@ -119,7 +119,7 @@ ok $res, 'unwind in scalar context at sub across loop to void';
 
 sub {
  $res = 1;
- if (unwind qw/m n o/ => SUB) {
+ if (unwind qw<m n o> => SUB) {
   $res = undef;
  }
  $res = 0;
@@ -129,19 +129,19 @@ ok $res, 'unwind in scalar context at sub across test to void';
 # --- Scalar to scalar --------------------------------------------------------
 
 $res = sub {
- 1, unwind(qw/a b c/ => SUB);
+ 1, unwind(qw<a b c> => SUB);
 }->(0);
 is $res, 'c', 'unwind in scalar context at sub to scalar';
 
 $res = sub {
  eval {
-  8, unwind qw/d e f/ => SUB;
+  8, unwind qw<d e f> => SUB;
  };
 }->(0);
 is $res, 'f', 'unwind in scalar context at sub across eval to scalar';
 
 $res = sub {
- if (unwind qw/m n o/ => SUB) {
+ if (unwind qw<m n o> => SUB) {
   return 'XXX';
  }
 }->(0);
@@ -150,17 +150,17 @@ is $res, 'o', 'unwind in scalar context at sub across test to scalar';
 # --- Scalar to list ----------------------------------------------------------
 
 @res = sub {
- if (unwind qw/m n o/ => SUB) {
+ if (unwind qw<m n o> => SUB) {
   return 'XXX';
  }
 }->(0);
-is_deeply \@res, [ qw/m n o/ ], 'unwind in scalar context at sub across test to list';
+is_deeply \@res, [ qw<m n o> ], 'unwind in scalar context at sub across test to list';
 
 # --- List to void ------------------------------------------------------------
 
 sub {
  $res = 1;
- my @temp = unwind(qw/a b c/ => SUB);
+ my @temp = unwind(qw<a b c> => SUB);
  $res = 0;
 }->(0);
 ok $res, 'unwind in list context at sub to void';
@@ -168,7 +168,7 @@ ok $res, 'unwind in list context at sub to void';
 sub {
  $res = 1;
  my @temp = eval {
-  unwind(qw/d e f/ => SUB);
+  unwind(qw<d e f> => SUB);
  };
  $res = 0;
 }->(0);
@@ -177,7 +177,7 @@ ok $res, 'unwind in list context at sub across eval to void';
 sub {
  $res = 1;
  for (1 .. 5) {
-  my @temp = (unwind qw/g h i/ => SUB);
+  my @temp = (unwind qw<g h i> => SUB);
  }
  $res = 0;
 }->(0);
@@ -185,7 +185,7 @@ ok $res, 'unwind in list context at sub across loop to void';
 
 sub {
  $res = 1;
- for (6, unwind qw/j k l/ => SUB) {
+ for (6, unwind qw<j k l> => SUB) {
   $res = undef;
  }
  $res = 0;
@@ -195,14 +195,14 @@ ok $res, 'unwind in list context at sub across test to void';
 # --- List to scalar ----------------------------------------------------------
 
 $res = sub {
- my @temp = (1, unwind(qw/a b c/ => SUB));
+ my @temp = (1, unwind(qw<a b c> => SUB));
  return 'XXX';
 }->(0);
 is $res, 'c', 'unwind in list context at sub to scalar';
 
 $res = sub {
  my @temp = eval {
-  8, unwind qw/d e f/ => SUB;
+  8, unwind qw<d e f> => SUB;
  };
  return 'XXX';
 }->(0);
@@ -210,14 +210,14 @@ is $res, 'f', 'unwind in list context at sub across eval to scalar';
 
 $res = sub {
  for (1 .. 5) {
-  my @temp = (7, unwind qw/g h i/ => SUB);
+  my @temp = (7, unwind qw<g h i> => SUB);
  }
  return 'XXX';
 }->(0);
 is $res, 'i', 'unwind in list context at sub across loop to scalar';
 
 $res = sub {
- for (6, unwind qw/j k l/ => SUB) {
+ for (6, unwind qw<j k l> => SUB) {
   return 'XXX';
  }
 }->(0);
@@ -226,27 +226,27 @@ is $res, 'l', 'unwind in list context at sub across loop iterator to scalar';
 # --- List to list ------------------------------------------------------------
 
 @res = sub {
- 2, unwind qw/a b c/ => SUB;
+ 2, unwind qw<a b c> => SUB;
 }->(0);
-is_deeply \@res, [ qw/a b c/ ], 'unwind in list context at sub to list';
+is_deeply \@res, [ qw<a b c> ], 'unwind in list context at sub to list';
 
 @res = sub {
  eval {
-  8, unwind qw/d e f/ => SUB;
+  8, unwind qw<d e f> => SUB;
  };
 }->(0);
-is_deeply \@res, [ qw/d e f/ ], 'unwind in list context at sub across eval to list';
+is_deeply \@res, [ qw<d e f> ], 'unwind in list context at sub across eval to list';
 
 @res = sub {
- for (6, unwind qw/j k l/ => SUB) {
+ for (6, unwind qw<j k l> => SUB) {
   return 'XXX';
  }
 }->(0);
-is_deeply \@res, [ qw/j k l/ ], 'unwind in list context at sub across loop iterator to list';
+is_deeply \@res, [ qw<j k l> ], 'unwind in list context at sub across loop iterator to list';
 
 # --- Prototypes --------------------------------------------------------------
 
-sub pie { 7, unwind qw/pie good/, $_[0] => SUB }
+sub pie { 7, unwind qw<pie good>, $_[0] => SUB }
 
 sub wlist (@) { return @_ }
 
@@ -254,7 +254,7 @@ $res = wlist pie 1;
 is $res, 3, 'unwind to list prototype to scalar';
 
 @res = wlist pie 2;
-is_deeply \@res, [ qw/pie good 2/ ], 'unwind to list prototype to list';
+is_deeply \@res, [ qw<pie good 2> ], 'unwind to list prototype to list';
 
 sub wscalar ($$) { return @_ }
 

diff --git a/t/59-unwind-threads.t b/t/59-unwind-threads.t
index aabb5fe635f7cd19d39f588ed4cda80199de53bb..236df4cf3b119fda1af940c166a247471ac7d599 100644 (file)
--- a/t/59-unwind-threads.t
+++ b/t/59-unwind-threads.t
@@ -9,7 +9,7 @@ sub skipall {
  Test::More::plan(skip_all => $msg);
 }
 
-use Config qw/%Config/;
+use Config qw<%Config>;
 
 BEGIN {
  my $force = $ENV{PERL_SCOPE_UPPER_TEST_THREADS} ? 1 : !1;
@@ -24,7 +24,7 @@ BEGIN {
 
 use Test::More;
 
-use Scope::Upper qw/unwind UP SU_THREADSAFE/;
+use Scope::Upper qw<unwind UP SU_THREADSAFE>;
 
 my $num;
 

diff --git a/t/81-stress-level.t b/t/81-stress-level.t
index 56dfa308c52e86cda07afd20975491db2250c674..ddc78e8274237260cde0e64aa92bb5362c297a9c 100644 (file)
--- a/t/81-stress-level.t
+++ b/t/81-stress-level.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scope::Upper qw/reap UP HERE/;
+use Scope::Upper qw<reap UP HERE>;
 
 use Scope::Upper::TestGenerator;
 

diff --git a/t/85-stress-unwind.t b/t/85-stress-unwind.t
index 03dee8f641bf0678694747f7ffc6c0eba82e199f..fa52bcd07b34eb83e22d7cf6505610298a5dda76 100644 (file)
--- a/t/85-stress-unwind.t
+++ b/t/85-stress-unwind.t
@@ -6,7 +6,7 @@ use warnings;
 use lib 't/lib';
 use Test::Leaner 'no_plan';
 
-use Scope::Upper qw/unwind UP HERE/;
+use Scope::Upper qw<unwind UP HERE>;
 
 our ($call, @args, $args);
 
@@ -88,7 +88,7 @@ DIAG
  }
 }
 
-for ([ ], [ 'A' ], [ qw/B C/ ]) {
+for ([ ], [ 'A' ], [ qw<B C> ]) {
  @args = @$_;
  $args = '(' . join(', ', map "'$_'", @args) . ')';
  runtests 0, 0;