From c301b22ef2104be9a6a80bf327bc7151fb27e898 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Fri, 13 Sep 2013 15:11:36 +0200 Subject: [PATCH] warning --- t/000setup_database.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.20.1