From: Vincent Pit <vince@profvince.com>
Date: Tue, 25 Oct 2011 22:25:38 +0000 (+0200)
Subject: Pass the 'data' callback after the 'op_info' flag when calling _wizard()
X-Git-Tag: v0.47~18
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=800e9f939f181af9766c3a3024ac9f57b9799510;p=perl%2Fmodules%2FVariable-Magic.git

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

diff --git a/Magic.xs b/Magic.xs
index afb7713..062cdb3 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -1469,14 +1469,14 @@ CODE:
  Newx(t, 1, MGVTBL);
  Newx(w, 1, MGWIZ);
 
- VMG_SET_CB(ST(i++), data);
-
  cb = ST(i++);
  opinfo = SvOK(cb) ? SvUV(cb) : 0;
  w->opinfo = (U8) ((opinfo < 255) ? opinfo : 255);
  if (w->opinfo)
   vmg_op_info_init(w->opinfo);
 
+ VMG_SET_CB(ST(i++), data);
+
  VMG_SET_SVT_CB(ST(i++), get);
  VMG_SET_SVT_CB(ST(i++), set);
  VMG_SET_SVT_CB(ST(i++), len);
diff --git a/lib/Variable/Magic.pm b/lib/Variable/Magic.pm
index 3668432..fd2c0ef 100644
--- 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;