diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-07-07 02:07:19 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-07-07 02:07:19 -0500 |
commit | 64e93875cecc7af2d630399eb30fdc2e2cbd27e6 (patch) | |
tree | 97a86830b679dd375d33058e83d666f68fce9a85 | |
parent | 5513a2540684c6dc267287deea5d49588ec021e2 (diff) | |
download | smartmatch-64e93875cecc7af2d630399eb30fdc2e2cbd27e6.tar.gz smartmatch-64e93875cecc7af2d630399eb30fdc2e2cbd27e6.zip |
make sure entersub op is built properly (prototypes applied, etc)
-rw-r--r-- | smartmatch.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/smartmatch.xs b/smartmatch.xs index 28cf0e0..23a4f17 100644 --- a/smartmatch.xs +++ b/smartmatch.xs @@ -17,7 +17,7 @@ smartmatch_cb(pTHX_ OP *o, void *user_data) o->op_flags &= ~OPf_KIDS; op_free(o); - cb_op = newSVOP(OP_CONST, 0, newSVsv(user_data)); + cb_op = newCVREF(0, newSVOP(OP_CONST, 0, newSVsv(user_data))); list = newLISTOP(OP_LIST, 0, left, right); new = newUNOP(OP_ENTERSUB, OPf_STACKED, op_append_elem(OP_LIST, list, cb_op)); |