X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2F23-magic-uvar.t;h=ce80f2ec95ccb0cf2e3ac8827079bb71a41dd05a;hp=9d3013b59625bfb9a1d5f55737f73bc7298c0a7d;hb=bf1b09f4ab8df1710df549764d511b110c6cb396;hpb=67165b7d215ffac8a1c56642fbffbf2715b9e6d1

diff --git a/t/23-magic-uvar.t b/t/23-magic-uvar.t
index 9d3013b..ce80f2e 100644
--- a/t/23-magic-uvar.t
+++ b/t/23-magic-uvar.t
@@ -13,7 +13,7 @@ BEGIN {
 {
  package Lexical::Types::Test::Ref;
 
- use Variable::Magic qw/wizard cast/;
+ use Variable::Magic qw<wizard cast>;
 
  our $wiz;
  BEGIN {
@@ -45,7 +45,8 @@ sub check (&$$;$) {
  my $want = wantarray;
  my @ret;
  {
-  local @{$got}{qw/fetch store/}; delete @{$got}{qw/fetch store/};
+  local @{$got}{qw<fetch store>};
+  delete @{$got}{qw<fetch store>};
   if ($want) {
    @ret = eval { $test->() };
   } elsif (defined $want) {