summaryrefslogtreecommitdiff
path: root/Echolot/Thesaurus.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-08-07 23:33:19 +0000
committerPeter Palfrader <peter@palfrader.org>2002-08-07 23:33:19 +0000
commit2c9d94f0d9154015b046cb2332ce368e076d0fad (patch)
tree51e1c0e1e6e2a25e4b1a42013923a6b5629f8990 /Echolot/Thesaurus.pm
parent91e83685fe324c7fa8648e987295d094089dbfec (diff)
Unlinking Thesaurus files works now
Diffstat (limited to 'Echolot/Thesaurus.pm')
-rw-r--r--Echolot/Thesaurus.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/Echolot/Thesaurus.pm b/Echolot/Thesaurus.pm
index c313036..fed040e 100644
--- a/Echolot/Thesaurus.pm
+++ b/Echolot/Thesaurus.pm
@@ -1,7 +1,7 @@
package Echolot::Thesaurus;
# (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Thesaurus.pm,v 1.9 2002/07/16 02:48:57 weasel Exp $
+# $Id: Thesaurus.pm,v 1.10 2002/08/07 23:33:19 weasel Exp $
#
=pod
@@ -68,7 +68,7 @@ sub build_thesaurus() {
= stat($dir.'/'.$filename);
if ($mtime < $expire_date) {
- unlink ($filename) or
+ unlink ($dir.'/'.$filename) or
cluck("Cannot unlink expired $filename");
print ("Expired thesaurus file $filename\n") if
Echolot::Config::get()->{'verbose'};