X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=lib%2Fsubs%2Fauto.pm;h=7fb55b88d8c0fe32fe0dc84271ca9faf7722f0ea;hb=bdab145ebb1c29e7ec08d6aff4b25f9282fa4d2f;hp=287e7f80a127cc5358294c9bf1213188f151b4d3;hpb=54e8c3ca36072542b2689f3bca52db73dfa5f903;p=perl%2Fmodules%2Fsubs-auto.git

diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm
index 287e7f8..7fb55b8 100644
--- a/lib/subs/auto.pm
+++ b/lib/subs/auto.pm
@@ -67,7 +67,7 @@ use B;
 
 use B::Keywords;
 
-use Variable::Magic 0.31 qw/wizard cast dispell getdata/;
+use Variable::Magic 0.31 qw<wizard cast dispell getdata>;
 
 BEGIN {
  unless (Variable::Magic::VMG_UVAR) {
@@ -84,7 +84,7 @@ my %core;
  @B::Keywords::Functions,
  'DATA',
 } = ();
-delete @core{qw/my local/};
+delete @core{qw<my local>};
 
 BEGIN {
  *_REFCNT_PLACEHOLDERS = eval 'sub () { ' . ($] < 5.011002 ? 0 : 1) . '}'