From 215f49f872bb4995c2168ca5b300ed0ac8f92aa0 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 12 Nov 2010 09:13:50 -0600
Subject: remove_package_symbol

---
 Stash.xs | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

(limited to 'Stash.xs')

diff --git a/Stash.xs b/Stash.xs
index 07ed2cf..a70683e 100644
--- a/Stash.xs
+++ b/Stash.xs
@@ -200,6 +200,45 @@ remove_package_glob(self, name)
   CODE:
     hv_delete(_get_namespace(self), name, strlen(name), G_DISCARD);
 
+void
+remove_package_symbol(self, variable)
+    SV *self
+    varspec_t variable
+  PREINIT:
+    HV *namespace;
+    SV **entry;
+  CODE:
+    namespace = _get_namespace(self);
+    entry = hv_fetch(namespace, variable.name, strlen(variable.name), 0);
+    if (!entry)
+        XSRETURN_EMPTY;
+
+    if (isGV(*entry)) {
+        GV *glob = (GV*)(*entry);
+        switch (variable.type) {
+        case VAR_SCALAR:
+            GvSV(glob) = Nullsv;
+            break;
+        case VAR_ARRAY:
+            GvAV(glob) = Nullav;
+            break;
+        case VAR_HASH:
+            GvHV(glob) = Nullhv;
+            break;
+        case VAR_CODE:
+            GvCV(glob) = Nullcv;
+            break;
+        case VAR_IO:
+            GvIOp(glob) = Null(struct io*);
+            break;
+        }
+    }
+    else {
+        if (variable.type == VAR_CODE) {
+            hv_delete(namespace, variable.name, strlen(variable.name), G_DISCARD);
+        }
+    }
+
 void
 list_all_package_symbols(self, vartype=VAR_NONE)
     SV *self
-- 
cgit v1.2.3-54-g00ecf