#!/usr/bin/perl
#use Mooix::Thing;
use Fcntl;
run sub {
	my $this=shift;
	$this->super(@_) || $this->croak("super failed");
	
	unless ($this->defines("log")) {
		# Set up the log file.
		umask(0); # ignore umask
		sysopen(TOUCH, "log", O_WRONLY | O_CREAT, 0660) ||
			$this->croak("touch log: $!");
	}
	
	return $this;
}
