| … | |
… | |
| 22 | $::config->{conserve_memory} = 0; # try to conserve memory at the expense of speed (0,1,2) |
22 | $::config->{conserve_memory} = 0; # try to conserve memory at the expense of speed (0,1,2) |
| 23 | $::config->{randomize} = 0; # randomize placement of stones (BROKEN) |
23 | $::config->{randomize} = 0; # randomize placement of stones (BROKEN) |
| 24 | |
24 | |
| 25 | sub save_config { |
25 | sub save_config { |
| 26 | >k::save_state; |
26 | >k::save_state; |
| 27 | Storable::nstore($state, $staterc); |
27 | Storable::nstore ($state, $staterc); |
| 28 | app::status("save_state", "layout saved"); |
28 | app::status ("save_state", "layout saved"); |
| 29 | } |
29 | } |
| 30 | |
30 | |
| 31 | sub format_time($) { |
31 | sub format_time($) { |
| 32 | my ($time) = @_; |
32 | my ($time) = @_; |
| 33 | |
33 | |
