summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-06-23 17:38:34 -0500
committerJesse Luehrs <doy@tozt.net>2012-06-23 17:38:34 -0500
commit2e70e3dbecd6043588db255bee68816b51c5c21d (patch)
treed6482d3eaca9612037284d9729487544b4da8f02
parent4e296fd552b9fc1c23edcd7d2981d694a120d4e4 (diff)
downloadsmartmatch-2e70e3dbecd6043588db255bee68816b51c5c21d.tar.gz
smartmatch-2e70e3dbecd6043588db255bee68816b51c5c21d.zip
use appropriate naming for this key as per perlvar
-rw-r--r--smartmatch.xs8
1 files changed, 5 insertions, 3 deletions
diff --git a/smartmatch.xs b/smartmatch.xs
index 28b62cd..d2816e9 100644
--- a/smartmatch.xs
+++ b/smartmatch.xs
@@ -6,6 +6,8 @@
#include "hook_op_check_smartmatch.h"
+#define SMARTMATCH_HH_KEY "smartmatch/engine"
+
#ifndef op_append_elem
#define op_append_elem(a,b,c) Perl_op_append_elem(aTHX_ a,b,c)
OP *
@@ -41,7 +43,7 @@ smartmatch_cb(pTHX_ OP *o, void *user_data)
SV **engine;
SV *cb_name;
- engine = hv_fetchs(GvHV(PL_hintgv), "smartmatch_engine", 0);
+ engine = hv_fetchs(GvHV(PL_hintgv), SMARTMATCH_HH_KEY, 0);
if (!engine) {
return o;
}
@@ -131,7 +133,7 @@ register (engine)
gv_HVadd(PL_hintgv);
SvREFCNT_inc(engine);
- if (!hv_stores(GvHV(PL_hintgv), "smartmatch_engine", engine)) {
+ if (!hv_stores(GvHV(PL_hintgv), SMARTMATCH_HH_KEY, engine)) {
SvREFCNT_dec(engine);
croak("couldn't store the engine");
}
@@ -142,4 +144,4 @@ unregister ()
PL_hints |= HINT_LOCALIZE_HH;
gv_HVadd(PL_hintgv);
- hv_delete(GvHV(PL_hintgv), "smartmatch_engine", 17, G_DISCARD);
+ hv_delete(GvHV(PL_hintgv), SMARTMATCH_HH_KEY, 17, G_DISCARD);