Switch to qw<>

[perl/modules/Lexical-Types.git] / t / 11-args.t

diff --git a/t/11-args.t b/t/11-args.t
index 26aa4b6335d89f1f2bdba3752e508432adc3fa01..695d6c9ad04e895af97886b55a72a35c3546245f 100644 (file)
--- a/t/11-args.t
+++ b/t/11-args.t
@@ -88,7 +88,7 @@ use Test::More tests => 14 + 6;
  my $expect = qr/^Invalid ARRAY reference/;
  local $@;
  eval q[
-  use Lexical::Types as => [ qw/a b c/ ];
+  use Lexical::Types as => [ qw<a b c> ];
   my LTT $x;
  ];
  like $@, $expect, 'as => array';
@@ -99,7 +99,7 @@ use Test::More tests => 14 + 6;
  diag 'This will throw two warnings' if $] >= 5.008008 and $] < 5.009;
  local $@;
  eval q[
-  use Lexical::Types as => sub { qw/a b c/ };
+  use Lexical::Types as => sub { qw<a b c> };
   my LTT $x;
  ];
  like $@, $expect, 'as => code, returning three scalars';