X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FVariable%2FMagic.pm;h=af44f016b81d9bee12c84c54b4a8796940b28f88;hb=cd9fcbe160cced7b5012a48f581f1c0674fc21fa;hp=3668432486cffb61f6e90ebfcf3a0700f8311dea;hpb=d33407fbe0b4c8c80751c26f5d8ec3622c26e54a;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/lib/Variable/Magic.pm b/lib/Variable/Magic.pm
index 3668432..af44f01 100644
--- a/lib/Variable/Magic.pm
+++ b/lib/Variable/Magic.pm
@@ -311,9 +311,7 @@ sub wizard {
 
  my %opts = @_;
 
- my @keys = qw<data op_info get set len clear free>;
- push @keys, 'copy'  if MGf_COPY;
- push @keys, 'dup'   if MGf_DUP;
+ my @keys = qw<op_info data get set len clear free copy dup>;
  push @keys, 'local' if MGf_LOCAL;
  push @keys, qw<fetch store exists delete copy_key> if VMG_UVAR;