MGf_COPY and MGf_DUP should always be set for the perls we consider

[perl/modules/Variable-Magic.git] / lib / Variable / Magic.pm

diff --git a/lib/Variable/Magic.pm b/lib/Variable/Magic.pm
index fd2c0ef6b3b73e7b3f3e186626a9b1fe9c0f211a..af44f016b81d9bee12c84c54b4a8796940b28f88 100644 (file)
--- a/lib/Variable/Magic.pm
+++ b/lib/Variable/Magic.pm
@@ -311,9 +311,7 @@ sub wizard {
 
  my %opts = @_;
 
- my @keys = qw<op_info data 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;