View/Edit #2:_destructor

Name(s): _destructor

1:  "Begin generic security check (_destructor)"
2:  if (verb == "_destructor" && caller_perms() != #-1)
3:    raise(E_PERM)
4:    return E_PERM
5:  endif
6:  "End generic security check (_destructor)"
7:  if (caller_perms() == #-1)
8:    if (`args[1].owner.owned_objects ! E_PROPNF')
9:      args[1].owner.owned_objects = setremove(args[1].owner.owned_objects, args[1])
10:   endif
11:   try
12:     $ref_db:remove_reference(args[1])
13:   except (E_PROPNF)
14:   endtry
15: endif
16: "Last modified by Slacker (#55) on Sat Mar 30 16:27:09 2002 MST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.