X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-args.t;h=a1018905af479f52071db03dff4b5c8e74eb4bdd;hb=61f64dfa5fa4f435e6cd854d22e4325ef1eb0068;hp=26aa4b6335d89f1f2bdba3752e508432adc3fa01;hpb=1a89808e0eb3e27e0d2b61d0bfa84fa8ab94b9cb;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/t/11-args.t b/t/11-args.t
index 26aa4b6..a101890 100644
--- 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';
@@ -96,10 +96,10 @@ use Test::More tests => 14 + 6;
 
 {
  my $expect = qr/^Lexical::Types mangler should return zero, one or two scalars, but got 3/;
- diag 'This will throw two warnings' if $] >= 5.008008 and $] < 5.009;
+ 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';
@@ -117,7 +117,7 @@ use Test::More tests => 14 + 6;
 
 {
  my $expect = qr/^banana at \(eval \d+\) line 2/;
- diag 'This will throw two more warnings' if $] >= 5.008008 and $] < 5.009;
+ diag 'This will throw two more warnings' if "$]" >= 5.008008 and "$]" < 5.009;
  local $@;
  eval q[
   use Lexical::Types as => sub { die 'banana' };