#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	my $oldname=shift;
	my $name=$this->name;
	
	return if lc $name eq lc $oldname;

	$this->msg('rename', oldname => $oldname);
}
