From 8b0eae7594cbc382e1f284c20a7f7aaf4e3df5ed Mon Sep 17 00:00:00 2001
From: Markus Armbruster <armbru@pond.sub.org>
Date: Wed, 28 Dec 2005 19:36:17 +0000
Subject: [PATCH] Quiet the noise about files created and removed.

---
 info/info.pl | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/info/info.pl b/info/info.pl
index 5493bd2c..3779b134 100644
--- a/info/info.pl
+++ b/info/info.pl
@@ -238,7 +238,6 @@ sub create_subj {
     my ($subj) = @_;
     my $fname = "info/$subj.t";
 
-    print "  Creating $fname\n";
     print "WARNING: $subj is a NEW subject\n"
 	unless grep(/^$subj$/, @Subjects);
     sysopen(SUBJ, $fname, O_WRONLY | O_EXCL | O_CREAT)
@@ -275,11 +274,9 @@ EOF
 sub create_subjects {
     my (@colsubj, @rowsubj, @subj);
 
-    print "  Removing Subjects\n";
     for (@Subjects) {
 	unlink "info/$_.t";
     }
-    print "  Creating info/TOP.t\n";
     open(TOP, ">info/TOP.t")
 	or die "Can't open info/TOP.t: $!";
     print TOP <<EOF;