#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $oldversion=$_{oldversion} || $this->croak("missing oldversion");
	
	if (62 > $oldversion) {
		# Copy list from parent (or if it's already changed, noop).
	        $this->list($this->list, "");
	        chmod(01664, $this->fieldfile('list')) || die "chmod: $!";
		
		# Remove unneeded .list_lock file.
		unlink($this->id."/.list_lock");
	}
	
	return $this->super(@_);
}
