From: Vincent Pit 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; + my @keys = qw; push @keys, 'copy' if MGf_COPY; push @keys, 'dup' if MGf_DUP; push @keys, 'local' if MGf_LOCAL;