#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $oldversion=$_{oldversion} || $this->croak("missing oldversion");
	
	if (6 > $oldversion) {
		# Prior to db version 6 , doors did not get open and locked
		# fields when initted, so reinit it.
		$this->init;
	}

	return $this->super(@_);
}
