fix bugs to do with reading relationships

[scpubgit/stemmatology.git] / make_tradition.pl

diff --git a/make_tradition.pl b/make_tradition.pl
index 28140e8..5f75f33 100755 (executable)
--- a/make_tradition.pl
+++ b/make_tradition.pl
@@ -12,7 +12,7 @@ binmode STDOUT, ":utf8";
 eval { no warnings; binmode $DB::OUT, ":utf8"; };
 
 my( $informat, $inbase, $outformat, $help, $linear, $name, $HACK ) 
-    = ( '', '', '', '', 0, 0 );
+    = ( '', '', '', '', 1, 'Tradition', 0 );
 
 GetOptions( 'i|in=s'    => \$informat,
             'b|base=s'  => \$inbase,