Switch qw delimiters to <>

[perl/modules/Sub-Op.git] / t / 11-existing.t

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;