[Turn on line numbering]
arg name;
var n, obj, errs;
caller() == definer() || (> .perms(sender()) <);
(> $sys.touch() <);
// try and clear the variable on all of the descendants, before
// deleting the variable...since we are root, dont use the standard
// hooks as perms may not be right
n = tosym("_dclear_var_" + tostr(time()));
catch any {
add_method(["clear_var('" + name + ");"], n);
for obj in (.descendants()) {
(| obj.(n)() |);
pause();
}
}
(| del_method(n) |);
// now delete the variable
(> del_var(name) <);
if ('core in .flags())
$changelog.log("DEL-VAR: " + this() + "," + name + " by " + sender());
["// Created as a part of ColdCore, see: @help Credit"]