why was i doing this from xs to begin with

doy · Jun 23, 2012 · 35660a6 · 35660a6
1 parent 2e70e3d
commit 35660a6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 27 deletions.
diff --git a/lib/smartmatch.pm b/lib/smartmatch.pm
@@ -72,11 +72,11 @@ sub import {
             unless $package->can('match');
     }
 
-    register($engine);
+    $^H{'smartmatch/engine'} = $engine;
 }
 
 sub unimport {
-    unregister();
+    delete $^H{'smartmatch/engine'};
 }
 
 =head1 BUGS

diff --git a/smartmatch.xs b/smartmatch.xs
@@ -120,28 +120,3 @@ PROTOTYPES: DISABLE
 
 BOOT:
     hook_op_check_smartmatch();
-
-void
-register (engine)
-    SV *engine;
-    CODE:
-        if (SvROK(engine)) {
-            croak("not an engine name");
-        }
-
-        PL_hints |= HINT_LOCALIZE_HH;
-        gv_HVadd(PL_hintgv);
-
-        SvREFCNT_inc(engine);
-        if (!hv_stores(GvHV(PL_hintgv), SMARTMATCH_HH_KEY, engine)) {
-            SvREFCNT_dec(engine);
-            croak("couldn't store the engine");
-        }
-
-void
-unregister ()
-    CODE:
-        PL_hints |= HINT_LOCALIZE_HH;
-        gv_HVadd(PL_hintgv);
-
-        hv_delete(GvHV(PL_hintgv), SMARTMATCH_HH_KEY, 17, G_DISCARD);