X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=t%2F11-existing.t;fp=t%2F11-existing.t;h=ed74f5843fed94627de7a18e9fa2169358d92f53;hp=13d60530ea1cfd4972b8871cf1fdd2e836227e99;hb=dc53229be14e9de81e0524ef39fc5e7431b975b8;hpb=ac9319bcf4ee5b90f2262a5a22482a5b35eaad4a

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;