diff options
| author | Jesse Luehrs <doy@tozt.net> | 2012-06-23 17:30:17 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2012-06-23 17:35:24 -0500 |
| commit | 4e296fd552b9fc1c23edcd7d2981d694a120d4e4 (patch) | |
| tree | cf91658b0324be3f34a2a187b0a5ae44c821ce58 /smartmatch.xs | |
| parent | efb4439ddf61def3dda4edd4af4b9c237e88d20f (diff) | |
| download | smartmatch-4e296fd552b9fc1c23edcd7d2981d694a120d4e4.tar.gz smartmatch-4e296fd552b9fc1c23edcd7d2981d694a120d4e4.zip | |
just store the engine name in the hint hash
Diffstat (limited to 'smartmatch.xs')
| -rw-r--r-- | smartmatch.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/smartmatch.xs b/smartmatch.xs index 49a13a8..28b62cd 100644 --- a/smartmatch.xs +++ b/smartmatch.xs @@ -92,8 +92,9 @@ smartmatch_cb(pTHX_ OP *o, void *user_data) } #endif - cb_name = newSVsv(*engine); - sv_catpv(cb_name, "::match"); + cb_name = newSVpvs("smartmatch::engine::"); + sv_catsv(cb_name, *engine); + sv_catpvs(cb_name, "::match"); cb_op = newUNOP(OP_RV2CV, 0, newGVOP(OP_GV, 0, gv_fetchsv(cb_name, 0, SVt_PVCV))); list = newLISTOP(OP_LIST, 0, left, right); |