Switch qw delimiters to <>

diff --git a/configure_test.pl b/configure_test.pl
index 31d9929a3da739fbdd5bb0705b0384d1ac698169..4fa7bd4fd739d0e240d68031bceb141d79833650 100644 (file)
--- a/configure_test.pl
+++ b/configure_test.pl
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use POSIX qw/WIFEXITED WEXITSTATUS EXIT_FAILURE/;
+use POSIX qw<WIFEXITED WEXITSTATUS EXIT_FAILURE>;
 
 BEGIN {
  no warnings 'redefine';

diff --git a/lib/Sub/Op.pm b/lib/Sub/Op.pm
index 0a96fa643ea1ce46c7a4568e4c28cb28758a567b..3ed2f4694cf3d3af5d238f45f3e9d514b22d4d8a 100644 (file)
--- a/lib/Sub/Op.pm
+++ b/lib/Sub/Op.pm
@@ -149,7 +149,7 @@ my $sw = Variable::Magic::wizard(
     CORE::warn(@_) unless $_[0] =~ /^Constant subroutine.*redefined/;
    } if _constant_sub(do { no strict 'refs'; \&$fqn });
    no strict 'refs';
-   no warnings qw/prototype redefine/;
+   no warnings qw<prototype redefine>;
    *$fqn = $placeholder;
   }
 

diff --git a/t/11-existing.t b/t/11-existing.t
index 13d60530ea1cfd4972b8871cf1fdd2e836227e99..ed74f5843fed94627de7a18e9fa2169358d92f53 100644 (file)
--- a/t/11-existing.t
+++ b/t/11-existing.t
@@ -65,7 +65,7 @@ our $called;
   }
   $test .= "{\n$code\n}\n";
   $test .= "}\n";
-  for my $name (grep +{ map +($_, 1), qw/foo bar blech/ }->{ $_ }, @names) {
+  for my $name (grep +{ map +($_, 1), qw<foo bar blech> }->{ $_ }, @names) {
    $test .= <<"   CHECK_SUB"
     {
      local \$call_$name = 1;