229
@verb #101:"bf_verb_args" this none this rxdo #55
@program #101:"bf_verb_args" this none this
"Copied from Hobbes (#9299):bf_verb_args Aug 19 06:32:56 2000"
{object, verb} = args
info = verb_info(object, verb)
"-r verbs suck! - whiz"
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 Lao-Tzu (#8084) on Tue Aug 20 05:45:15 2002 MDT."
.

0