From 7203926ea49ffa2237ad7c048537809f04442025 Mon Sep 17 00:00:00 2001
From: Markus Armbruster <armbru@pond.sub.org>
Date: Sun, 15 Jan 2006 08:05:13 +0000
Subject: [PATCH] The code to fail when new subject's file exists failed
 always.  Fix.

---
 info/findsubj.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/info/findsubj.pl b/info/findsubj.pl
index 6184d1e6..ffe7eb95 100644
--- a/info/findsubj.pl
+++ b/info/findsubj.pl
@@ -90,8 +90,10 @@ for my $t (keys %subjfil) {
     unless (grep(/^$t$/, @Subjects)) {
 	print STDERR "WARNING: $t is a NEW subject\n";
 	my $fname = "info/$t.t";
-	print STDERR "File $fname exists\n" if -e $fname;
-	exit 1;
+	if (-e $fname) {
+	    print STDERR "File $fname exists\n";
+	    exit 1;
+	}
     }
 }
 @Subjects = sort keys %subjfil;