From: Vincent Pit <vince@profvince.com>
Date: Sat, 24 Aug 2013 21:48:25 +0000 (-0300)
Subject: Switch qw delimiters to <>
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=dc53229be14e9de81e0524ef39fc5e7431b975b8;p=perl%2Fmodules%2FSub-Op.git

Switch qw delimiters to <>
---

diff --git a/configure_test.pl b/configure_test.pl
index 31d9929..4fa7bd4 100644
--- 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 0a96fa6..3ed2f46 100644
--- 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 13d6053..ed74f58 100644
--- 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;