Switch to qw<>

[perl/modules/Regexp-Wildcards.git] / t / 20-jokers.t

diff --git a/t/20-jokers.t b/t/20-jokers.t
index 262a2aa9914740f3b1781a2b627ccefcc79f393e..8b80608ddb283b18b232a18132c5891bbe9ef458 100644 (file)
--- 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> ], '_', '*';