#!/usr/bin/perl
# This needs to be stackless, because filter lists are set up as part of
# object creation, and the stack often has a caller on it who owns the
# object, but not the object's filter list.
#use Mooix::Thing;
run sub {
	my $this=shift;
	
	# Copy list from parent -- even if it's empty, make sure this
	# object gets its own copy. Also, make sure it is a sticky
	# thinglist not a link.
	$this->list($this->list, "");
	chmod(01664, $this->fieldfile('list')) || die "chmod: $!";
	
	# Do not call parent which does stuff not needed.
	return $this;
}
