#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $oldversion=$_{oldversion} || $this->croak("missing oldversion");
	
	if (9 > $oldversion) {
		# By accident, this object originally got all of its fields
		# copied into /var. Delete most of them.
		foreach my $file (qw{add add.inf description heartbeat
			        heartbeat.inf name remove shutdown
				shutdown.inf startup startup.inf}) {
			unlink $file;
		}
	}
	
	return $this->super(@_);
}
