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

The code to fail when new subject's file exists failed always. Fix.

Browse source
This commit is contained in:
Markus Armbruster 2006-01-15 08:05:13 +00:00
parent 0fe877e1cd
commit 7203926ea4
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
info/findsubj.pl
View file

@ -90,9 +90,11 @@ for my $t (keys %subjfil) {
unless (grep(/^$t$/, @Subjects)) { unless (grep(/^$t$/, @Subjects)) {
print STDERR "WARNING: $t is a NEW subject\n"; print STDERR "WARNING: $t is a NEW subject\n";
my $fname = "info/$t.t"; my $fname = "info/$t.t";
print STDERR "File $fname exists\n" if -e $fname; if (-e $fname) {
print STDERR "File $fname exists\n";
exit 1; exit 1;
} }
}
} }
@Subjects = sort keys %subjfil; @Subjects = sort keys %subjfil;