#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;

	# Make sure that clothing is removed before it is dropped.
	# Note that the dropping might happen because the avatar is being
	# destroyed, which doesn't give the drop verb a chance to run.
	# That's why I have to do this here too.
	if ($this->worn) {
		$this->remove_verb(avatar => $this->location);
	}
	
	$this->super(@_);
}
