diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-08-07 23:33:19 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-08-07 23:33:19 +0000 |
| commit | 2c9d94f0d9154015b046cb2332ce368e076d0fad (patch) | |
| tree | 51e1c0e1e6e2a25e4b1a42013923a6b5629f8990 /Echolot/Thesaurus.pm | |
| parent | 91e83685fe324c7fa8648e987295d094089dbfec (diff) | |
Unlinking Thesaurus files works now
Diffstat (limited to 'Echolot/Thesaurus.pm')
| -rw-r--r-- | Echolot/Thesaurus.pm | 4 |
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'}; |