use changed API for stemmadot specification

diff --git a/script/make_tradition.pl b/script/make_tradition.pl
index 309033b..212edfc 100755 (executable)
--- a/script/make_tradition.pl
+++ b/script/make_tradition.pl
@@ -69,7 +69,7 @@ if( $informat eq 'CollateText' ) {
 }
 my $tradition = Text::Tradition->new( %args );
 if( $stemmafile ) {
-       my $stemma = $tradition->add_stemma( $stemmafile );
+       my $stemma = $tradition->add_stemma( dotfile => $stemmafile );
        print STDERR "Saved stemma at $stemmafile\n" if $stemma;
 }
 

diff --git a/script/save_to_db.pl b/script/save_to_db.pl
index 0532ca2..3b85d09 100755 (executable)
--- a/script/save_to_db.pl
+++ b/script/save_to_db.pl
@@ -49,7 +49,7 @@ if( $tfile ) {
                'linear' => 1,
                );
        if( $tradition && $sfile ) {
-               $stemma = $tradition->add_stemma( $sfile );
+               $stemma = $tradition->add_stemma( dotfile =>  $sfile );
                warn "Did not get stemma from $sfile\n" unless $stemma;
        }