mg-schema-test-database: Be slightly more defensive

Signed-off-by: Ian Jackson <iwj@xenproject.org>

diff --git a/mg-schema-test-database b/mg-schema-test-database
index e69b9881e0a6178e98e67c3bb65cd2f571265862..b49fbecf6984307a56b20756e80359a584427f4c 100755 (executable)
--- a/mg-schema-test-database
+++ b/mg-schema-test-database
@@ -381,7 +381,8 @@ END
                        print "sequences+=\" $1\"\n";
                } elsif (m/^CREATE TABLE (\w+)/) {
                        $table=$1;
-               } elsif (m/^\s*flight\s+integer/) {
+               } elsif (m/^\s*flight\s+integer\s/) {
+                       die unless $table;
                        print "ftables+=\" $table\"\n";
                } elsif ($table && m/^\)\;$/) {
                        print "tables+=\" $table\"\n";