29d
@verb #101:"bf_verb_code" this none this rxdo #55
@program #101:"bf_verb_code" this none this
{object, verb, ?full_paren, ?indent} = args
info = verb_info(object, verb)
if (!index(info[2], "r") && !caller_perms():controls(info[1]))
  raise(E_PERM)
elseif (!object.r && !caller_perms():isa($guardian) && !caller_perms():controls(object))
  raise(E_PERM, "Object is non-readable")
endif
return pass(@args)
"Last modified by manta (#7165) on Sat Mar 30 16:04:06 2002 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
"Last modified by Dax (#789) on Sun May 15 19:00:06 2005 MDT."
.

0