Use of uninitialized value in regexp compilation at ./reindex.pl line 55.

svn:r17031

diff --git a/doc/spec/proposals/reindex.pl b/doc/spec/proposals/reindex.pl
index f76dbfb137df6546d244808b6e3fbb47fa88d227..2727351628e54877a15f525352196fa86dc94400 100755 (executable)
--- a/doc/spec/proposals/reindex.pl
+++ b/doc/spec/proposals/reindex.pl
@@ -52,10 +52,10 @@ for my $f (@files) {
        }
     }
     close F;
+    die "Proposal $num has no status line" if (!defined $status);
     die "I've never heard of status $status in proposal $num"
        unless (grep(/$status/, @KNOWN_STATUSES) == 1);
-    die "Proposal $num has a bad status line" if (!defined $status);
-    die "Proposal $num has a bad title line" if (!defined $title);
+    die "Proposal $num has no title line" if (!defined $title);
     die "Proposal $num has no Filename line" unless (defined $alleged_fname);
     die "Proposal $num says its fname is $alleged_fname, but it's really $f"
        if ($alleged_fname ne $f);