Changeset Navigation

Changeset 973

Timestamp:

06/12/06 13:39:12

Author:

miyagawa

Message:

rewrite config doesn't die even if it can't rewrite because of permission problem

Files:

r887	r973
96	96	if ($count) {
97	97	File::Copy::copy( $self->{config_path}, $self->{config_path} . ".bak" );
98		open my $fh, ">", $self->{config_path} or ~~$self->error(~~"$self->{config_path}: $!");
	98	open my $fh, ">", $self->{config_path} or return $self->log(error => "$self->{config_path}: $!");
99	99	print $fh $data;
100	100	close $fh;