X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FVariable%2FMagic.pm;h=11a26a8511362af310831fe5f72ec10008860e3e;hb=6f35a291f0c453d34b617ee9eb03d2a68c410614;hp=f60564917e14c139d3bfd9a8ae0d925d7b5c2b59;hpb=183e73e0590b46550dfa6fdd4b6cf3280c1a5877;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/lib/Variable/Magic.pm b/lib/Variable/Magic.pm
index f605649..11a26a8 100644
--- a/lib/Variable/Magic.pm
+++ b/lib/Variable/Magic.pm
@@ -13,14 +13,14 @@ Variable::Magic - Associate user-defined magic to variables from Perl.
 
 =head1 VERSION
 
-Version 0.07_01
+Version 0.07_02
 
 =cut
 
 use vars qw/$VERSION/;
 
 BEGIN {
- $VERSION = '0.07_01';
+ $VERSION = '0.07_02';
 }
 
 =head1 SYNOPSIS
@@ -155,12 +155,7 @@ sub wizard {
  croak 'Wrong number of arguments for wizard()' if @_ % 2;
  my %opts = @_;
  my $sig = $opts{sig};
- my @types = qw/data get set len clear free/;
- push @types, 'copy'  if MGf_COPY;
- push @types, 'dup'   if MGf_DUP;
- delete $opts{dup}; # don't use it for now
- push @types, 'local' if MGf_LOCAL;
- return _wizard($sig, map { $opts{$_} } @types);
+ return _wizard($sig, map { $opts{$_} } qw/data get set len clear free copy dup local fetch store exists delete/);
 }
 
 =head2 C<gensig>