]> git.vpit.fr Git - perl/modules/Regexp-Wildcards.git/blobdiff - t/11-opts.t
Switch to qw<>
[perl/modules/Regexp-Wildcards.git] / t / 11-opts.t
index 1874b77a707a84617509501395350cd74655db57..b2d510c4a1e8b265628f658be71e27b08e63bb94 100644 (file)
@@ -27,7 +27,7 @@ is($rw->convert($wc), $win32, 'reset to win32');
 $rw->type();
 is($rw->convert($wc), $unix,  'reset to unix');
 
-$rw = Regexp::Wildcards->new(do => [ qw/jokers/ ], type => 'win32');
+$rw = Regexp::Wildcards->new(do => [ qw<jokers> ], type => 'win32');
 is($rw->convert($wc), $jokers, 'do overrides type in new');
 $rw->do(add => 'groups');
 is($rw->convert($wc), $jok_gr, 'added groups to jokers');