X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2Fsubs%2Fauto.pm;h=3bc6ba144bcc0a42b866edbbf705bd84d17840ef;hb=e991bf497476b7c8b8a9558ac58dc1989c558e6e;hp=decd4f45a58e2aaa73f876067b69087914ed920e;hpb=3bc0cd788c6ace6eea35d808c5dd640b13e2d7ce;p=perl%2Fmodules%2Fsubs-auto.git

diff --git a/lib/subs/auto.pm b/lib/subs/auto.pm
index decd4f4..3bc6ba1 100644
--- a/lib/subs/auto.pm
+++ b/lib/subs/auto.pm
@@ -11,13 +11,13 @@ subs::auto - Read barewords as subroutine names.
 
 =head1 VERSION
 
-Version 0.05
+Version 0.07
 
 =cut
 
 our $VERSION;
 BEGIN {
- $VERSION = '0.05';
+ $VERSION = '0.07';
 }
 
 =head1 SYNOPSIS
@@ -36,7 +36,7 @@ BEGIN {
                       #  or "print(foo('wut'))" otherwise
     } # ... but function calls will fail at run-time if you don't
       # actually define foo somewhere
-    
+
     foo; # BANG
 
 =head1 DESCRIPTION
@@ -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) . '}'
@@ -283,7 +283,7 @@ Thanks to Sebastien Aperghis-Tramoni for helping to name this pragma.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010,2011 Vincent Pit, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.