… | |
… | |
1214 | } |
1214 | } |
1215 | |
1215 | |
1216 | sub save { |
1216 | sub save { |
1217 | my ($self) = @_; |
1217 | my ($self) = @_; |
1218 | |
1218 | |
|
|
1219 | $self->{last_save} = $cf::RUNTIME; |
|
|
1220 | |
|
|
1221 | return unless $self->dirty; |
|
|
1222 | |
1219 | my $save = $self->{path}->save_path; utf8::encode $save; |
1223 | my $save = $self->{path}->save_path; utf8::encode $save; |
1220 | my $uniq = $self->{path}->uniq_path; utf8::encode $uniq; |
1224 | my $uniq = $self->{path}->uniq_path; utf8::encode $uniq; |
1221 | |
|
|
1222 | $self->{last_save} = $cf::RUNTIME; |
|
|
1223 | |
|
|
1224 | return unless $self->dirty; |
|
|
1225 | |
1225 | |
1226 | $self->{load_path} = $save; |
1226 | $self->{load_path} = $save; |
1227 | |
1227 | |
1228 | return if $self->{deny_save}; |
1228 | return if $self->{deny_save}; |
1229 | |
1229 | |