empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Quiet the noise about files created and removed.

Browse source
This commit is contained in:
Markus Armbruster 2005-12-28 19:36:17 +00:00
parent 0dc0b29a92
commit 8b0eae7594
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
info/info.pl
View file

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