Switch to qw<>

[perl/modules/LaTeX-TikZ.git] / t / 12-geo.t

diff --git a/t/12-geo.t b/t/12-geo.t
index c1caa3e31b169dcbbe941579823f79392a2a3adb..87832f7c75d0d288e00489b74698791880af5046 100644 (file)
--- a/t/12-geo.t
+++ b/t/12-geo.t
@@ -106,7 +106,7 @@ RES
  like $@, qr/at least two LaTeX::TikZ::Set::Point objects are needed in order to build a polyline/, "creating a $desc from only one Tikz point croaks";
 
  $pl = eval {
-  Tikz->$polyline(qw/foo bar/);
+  Tikz->$polyline(qw<foo bar>);
  };
  like $@, failed_valid('LaTeX::TikZ::Point::Autocoerce'), "creating a $desc from two string croaks";
 }