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