Switch to qw<>

[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Set / Line.pm

diff --git a/lib/LaTeX/TikZ/Set/Line.pm b/lib/LaTeX/TikZ/Set/Line.pm
index 807b56dc869011ee1628549e755b992a1a6b1b46..3ee969493a0f764a292c4cdca1ea424dd3c219f0 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Line.pm
+++ b/lib/LaTeX/TikZ/Set/Line.pm
@@ -81,7 +81,7 @@ LaTeX::TikZ::Interface->register(
 LaTeX::TikZ::Functor->default_rule(
  (__PACKAGE__) => sub {
   my ($functor, $set, @args) = @_;
-  $set->new(map { $_ => $set->$_->$functor(@args) } qw/from to/)
+  $set->new(map { $_ => $set->$_->$functor(@args) } qw<from to>)
  }
 );