X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/da2d9d568dda60063272ff227973f0ce18b7e65c..a04828ca3a04e84ab35c23293c4628c462297bda:/t/000setup_database.t

diff --git a/t/000setup_database.t b/t/000setup_database.t
index 06b9296a7..5cf6a2892 100755
--- 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;