Pass the 'data' callback after the 'op_info' flag when calling _wizard()

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

diff --git a/lib/Variable/Magic.pm b/lib/Variable/Magic.pm
index 3668432486cffb61f6e90ebfcf3a0700f8311dea..fd2c0ef6b3b73e7b3f3e186626a9b1fe9c0f211a 100644 (file)
--- a/lib/Variable/Magic.pm
+++ b/lib/Variable/Magic.pm
@@ -311,7 +311,7 @@ sub wizard {
 
  my %opts = @_;
 
- my @keys = qw<data op_info get set len clear free>;
+ my @keys = qw<op_info data get set len clear free>;
  push @keys, 'copy'  if MGf_COPY;
  push @keys, 'dup'   if MGf_DUP;
  push @keys, 'local' if MGf_LOCAL;