suppress declaration warning

diff --git a/script/maketestdb.pl b/script/maketestdb.pl
index 3a24907..db7efbc 100755 (executable)
--- a/script/maketestdb.pl
+++ b/script/maketestdb.pl
@@ -51,9 +51,9 @@ my $t1 = Text::Tradition->new( input => 'Self', file => 't/data/besoin.xml' );
 die "Failed to create test tradition #1" unless $t1;
 $t1->add_stemma( dotfile => 't/data/besoin_stemweb.dot' );
 $user->add_tradition( $t1 );
-my $t2 = Text::Tradition->new( input => 'Self', file => 't/data/besoin.xml' );
-$t2->add_stemma( dotfile => 't/data/besoin_stemweb.dot' );
-$openid_user->add_tradition($t2);
+my $t1b = Text::Tradition->new( input => 'Self', file => 't/data/besoin.xml' );
+$t1b->add_stemma( dotfile => 't/data/besoin_stemweb.dot' );
+$openid_user->add_tradition($t1b);
 $dir->store( $user );
 $dir->store( $openid_user );
 say "Created test user tradition";