Switch to qw<>

[perl/modules/LaTeX-TikZ.git] / t / 20-mod.t

diff --git a/t/20-mod.t b/t/20-mod.t
index ae9cc77c6709ed5b09e540597ec8c2865d6458ef..c2c54f8997463203344ab6005400ffbc3253e05e 100644 (file)
--- a/t/20-mod.t
+++ b/t/20-mod.t
@@ -252,7 +252,7 @@ check $seq, 'mod covering 3', <<'RES';
 RES
 
 eval {
- $baz->mod(Tikz->raw_mod($_)) for qw/raw2 raw3/;
+ $baz->mod(Tikz->raw_mod($_)) for qw<raw2 raw3>;
 };
 is $@, '', 'creating and adding another raw mod doesn\'t croak';
 
@@ -288,7 +288,7 @@ check $seq, 'mod covering 5', <<'RES';
 RES
 
 my ($fred, $fblue) = eval {
- map Tikz->fill($_), qw/red blue/;
+ map Tikz->fill($_), qw<red blue>;
 };
 is $@, '', 'creating two fill mods doesn\'t croak';