warning

diff --git a/t/000setup_database.t b/t/000setup_database.t
index 06b9296a7cd1a4d0c715a9006a5d72907ce34ad3..5cf6a28923055cce6a491b9cbfee7dd94072d326 100755 (executable)
--- a/t/000setup_database.t
+++ b/t/000setup_database.t
@@ -179,7 +179,7 @@ sub create_client_user_and_employee {
   dbh_do($dbh, $sth, bind => [ $_, $config{$_} ]) for sort keys %config;
   $sth->finish;
 
-  my $sth = $dbh->prepare(qq|INSERT INTO auth.group_rights (group_id, "right", granted) VALUES (1, ?, TRUE)|) || BAIL_OUT($dbh->errstr);
+  $sth = $dbh->prepare(qq|INSERT INTO auth.group_rights (group_id, "right", granted) VALUES (1, ?, TRUE)|) || BAIL_OUT($dbh->errstr);
   dbh_do($dbh, $sth, bind => [ $_ ]) for sort $::auth->all_rights;
   $sth->finish;