#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $oldversion=$_{oldversion} || $this->croak("missing oldversion");
	
	if (52 > $oldversion) {
		# This used to be 1664 for some reason.
		chmod(01644, $this->fieldfile('list')) 
			|| $this->croak("chmod");
	}
	
	return $this->super(@_);
}
