#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $oldversion=$_{oldversion} || $this->croak("missing oldversion");
	
	if (9 > $oldversion && $this->defines(".sleeping")) {
		# The sleeping field used to be private.
		$this->sleeping($this->_sleeping);
		unlink $this->fieldfile("_sleeping") ||
			warn "unlink _sleeping: $!";
	}
	
	if (10 > $oldversion && $this->defines("canregister")) {
		$this->register_ok($this->canregister);
		unlink $this->fieldfile("canregister") ||
			warn "unlink canregister: $!";
	}

	if (34 > $oldversion && $this->defines("listening")) {
		$this->aware($this->listening);
		unlink $this->fieldfile("listening") ||
			warn "unlink listening: $!";
	}

	if (41 > $oldversion && $this->defines("max_hitpoints")) {
		$this->maxhitpoints($this->max_hitpoints);
		unlink $this->fieldfile("max_hitpoints") ||
			warn "unlink max_hitpoints: $!";
	}
	
	if (44 > $oldversion && $this->defines(".awarecounter")) {
		unlink $this->fieldfile(".awarecounter") ||
			warn "unlink .awarecounter: $!";
	}
	
	return $this->super(@_);
}
