--- loncom/misc/cleanup_file_caches.pl	2004/05/12 19:28:55	1.3
+++ loncom/misc/cleanup_file_caches.pl	2004/12/22 19:11:08	1.4
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # The LearningOnline Network
 #
-# $Id: cleanup_file_caches.pl,v 1.3 2004/05/12 19:28:55 albertel Exp $
+# $Id: cleanup_file_caches.pl,v 1.4 2004/12/22 19:11:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -62,7 +62,7 @@ sub kill_if_old {
     my $filename = $File::Find::name;
     return if (! -f $filename); # We only want files
     my $inode =stat($filename);
-    if ($inode->atime < $killtime) {
+    if ((time-$inode->atime) > $killtime) {
         unlink($filename);
     }
 }