From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 13 Sep 2013 13:11:36 +0000 (+0200)
Subject: warning
X-Git-Tag: release-3.1.0beta1~55
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=c301b22ef2104be9a6a80bf327bc7151fb27e898;p=kivitendo-erp.git

warning
---

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;