X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2F16-scope.t;h=08fabbb329654a60be4ace30baca5f23c458c4f4;hp=6d78ec1a3615529457de06dc92f0a6664d0e7d34;hb=bf1b09f4ab8df1710df549764d511b110c6cb396;hpb=67165b7d215ffac8a1c56642fbffbf2715b9e6d1

diff --git a/t/16-scope.t b/t/16-scope.t
index 6d78ec1..08fabbb 100644
--- a/t/16-scope.t
+++ b/t/16-scope.t
@@ -26,7 +26,7 @@ use lib 't/lib';
  sub cb3 { push @decls, $_[0]; @_ }
  {
   no strict 'refs';
-  *{"Int3$_\::TYPEDSCALAR"} = \&Int::TYPEDSCALAR for qw/X Y Z/;
+  *{"Int3$_\::TYPEDSCALAR"} = \&Int::TYPEDSCALAR for qw<X Y Z>;
  }
  local $SIG{__WARN__} = sub { push @w, join '', 'warn:', @_ };
  eval <<' TESTREQUIRED3';
@@ -42,6 +42,6 @@ use lib 't/lib';
  @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if $] <= 5.008003;
  is         $@,     '',  'third require test didn\'t croak prematurely';
  is_deeply \@w,     [ ], 'third require test didn\'t warn';
- is_deeply \@decls, [ map "Int3$_", qw/X Z/ ],
+ is_deeply \@decls, [ map "Int3$_", qw<X Z> ],
                          'third require test propagated in the right scopes';
 }