X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F40-scope.t;fp=t%2F40-scope.t;h=c79caaf66d5535b73716403519ca31aacac41f1e;hb=3201984d539ab173c11a001792be4294af17a08c;hp=0e3cdecfa5f88da56329f07d3088f4579fd193b1;hpb=b3ee8fb0443427961f58b2005727cba0ab05e809;p=perl%2Fmodules%2Fautovivification.git

diff --git a/t/40-scope.t b/t/40-scope.t
index 0e3cdec..c79caaf 100644
--- a/t/40-scope.t
+++ b/t/40-scope.t
@@ -12,7 +12,7 @@ use lib 't/lib';
  my $x;
  my $res = eval {
   local $SIG{__WARN__} = sub { push @w, join '', 'warn:', @_ };
-  no autovivification qw/warn fetch/;
+  no autovivification qw<warn fetch>;
   $x->{a};
  };
  is   @w,    1,     'warned only once';