349
@verb #901:"_destructor" none none none rxdo #55
@program #901:"_destructor" none none none
"This is not a totally secure check.  With a bit of cleverness, you can remove features from other people.  *gasp*.  It does have the advantage, though, of not exploding."
"Begin generic security check (_destructor)"
if (verb == "_destructor" && caller_perms() != #-1)
  raise(E_PERM)
  return E_PERM
endif
"End generic security check (_destructor)"
cp = callers()[1][$]
"(!cp:controls(args[1])) && raise(E_PERM);"
args[1].owner.features = setremove(args[1].owner.features, args[1])
"Last modified by Slacker (#55) on Sat Mar 30 16:27:09 2002 MST."
"This verb previously owned by whiz (#3135), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:03 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:03 2002 MDT."
.

0