--- loncom/misc/cleanup_file_caches.pl	2002/11/06 19:10:09	1.1
+++ loncom/misc/cleanup_file_caches.pl	2002/11/21 19:41:54	1.2
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # The LearningOnline Network
 #
-# $Id: cleanup_file_caches.pl,v 1.1 2002/11/06 19:10:09 matthew Exp $
+# $Id: cleanup_file_caches.pl,v 1.2 2002/11/21 19:41:54 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -61,7 +61,7 @@ sub kill_if_old {
     return if (! -f $filename); # We only want files
     my $inode =stat($filename);
     if ($inode->atime < $killtime) {
-        unlink($filename) || print "Unable to unlink $filename";
+        unlink($filename);
     }
 }