From 2c9d94f0d9154015b046cb2332ce368e076d0fad Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Wed, 7 Aug 2002 23:33:19 +0000
Subject: Unlinking Thesaurus files works now

---
 Echolot/Thesaurus.pm | 4 ++--
 1 file 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'};
-- 
cgit v1.2.3