#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $oldversion=$_{oldversion} || $this->croak("missing oldversion");
	
	if (32 > $oldversion) {
		# Several thinglists became thingsets. Remove watermark
		# files.
		unlink("watermark");
	}
	
	if (35 > $oldverson && $this->defines("updatelisten")) {
		# There used to be an updatelisten field that made the
		# owners calclistening method be run. caliclistening became
		# calcaware, and updatelisten is replaced with onchange.
		if ($this->updatelisten) {
			$this->onchange("calcaware");
		}
		unlink $this->fieldfile("updatelisten")
			|| die "unlink updatelisten: $!";
	}
	
	return $this->super(@_);
}
