| … | … | ||
|---|---|---|---|
| 860 | 860 | ||
| 861 | =cut | 861 | =cut |
| 862 | 862 | ||
| 863 | { | 863 | { |
| 864 | my $db; | 864 | my $db; |
| 865 | my $path = cf::datadir . "/database.pst"; | 865 | my $path = cf::localdir . "/database.pst"; |
| 866 | 866 | ||
| 867 | sub db_load() { | 867 | sub db_load() { |
| 868 | warn "loading database $path\n";#d# remove later | 868 | warn "loading database $path\n";#d# remove later |
| 869 | $db = stat $path ? Storable::retrieve $path : { }; | 869 | $db = stat $path ? Storable::retrieve $path : { }; |
| 870 | } | 870 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |