X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=blobdiff_plain;f=t%2F20-jokers.t;h=8b80608ddb283b18b232a18132c5891bbe9ef458;hp=262a2aa9914740f3b1781a2b627ccefcc79f393e;hb=152b316b711f68b0027cbdd3e231bb6cd3d9b9a5;hpb=faf1f9f18601b51e4a4fce5dbfb0ed9bbf24e72b

diff --git a/t/20-jokers.t b/t/20-jokers.t
index 262a2aa..8b80608 100644
--- a/t/20-jokers.t
+++ b/t/20-jokers.t
@@ -55,14 +55,14 @@ sub alltests {
  try $rw, "multiple capturing $one", $one.$one.'\\'.$one.$one,
                                     '(.)(.)\\'.$one.'(.)';
 
- $rw->capture(add => [ qw/any greedy/ ]);
+ $rw->capture(add => [ qw<any greedy> ]);
  try $rw, "multiple capturing $any (greedy)", $any.$any.'\\'.$any.$any,
                                               '(.*)\\'.$any.'(.*)';
  my $wc = $any.$any.$one.$one.'\\'.$one.$one.'\\'.$any.$any;
  try $rw, "multiple capturing $any (greedy) and capturing $one",
           $wc, '(.*)(.)(.)\\'.$one.'(.)\\'.$any.'(.*)';
 
- $rw->capture(set => [ qw/any greedy/ ]);
+ $rw->capture(set => [ qw<any greedy> ]);
  try $rw, "multiple capturing $any (greedy) and non-capturing $one",
           $wc, '(.*)..\\'.$one.'.\\'.$any.'(.*)';
 
@@ -106,4 +106,4 @@ sub alltests {
 
 alltests 'jokers',           '?', '*';
 alltests 'sql',              '_', '%';
-alltests [ qw/jokers sql/ ], '_', '*';
+alltests [ qw<jokers sql> ], '_', '*';