[LON-CAPA-cvs] cvs: loncom /misc cleanup_prtspool.pl

[matthew]

matthew		Thu Nov 21 14:41:54 2002 EDT

  Modified files:              
    /loncom/misc	cleanup_prtspool.pl 
  Log:
  We'll just keep quiet if we are unable to unlink a file.
  
  
Index: loncom/misc/cleanup_prtspool.pl
diff -u loncom/misc/cleanup_prtspool.pl:1.1 loncom/misc/cleanup_prtspool.pl:1.2
--- loncom/misc/cleanup_prtspool.pl:1.1	Wed Nov  6 14:10:09 2002
+++ loncom/misc/cleanup_prtspool.pl	Thu Nov 21 14:41:54 2002
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # The LearningOnline Network
 #
-# $Id: cleanup_prtspool.pl,v 1.1 2002/11/06 19:10:09 matthew Exp $
+# $Id: cleanup_prtspool.pl,v 1.2 2002/11/21 19:41:54 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -61,7 +61,7 @@
     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);
     }
 }