| … | |
… | |
| 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 | |
