Perl-Upgrade-Scripte: db_query nun auch mit Bind-Parametern

[mfinanz.git] / sql / Pg-upgrade2 / USTVA_abstraction.pl

diff --git a/sql/Pg-upgrade2/USTVA_abstraction.pl b/sql/Pg-upgrade2/USTVA_abstraction.pl
index a1b4a9caa39773c6096cb40fcebc1dde0c7c13e8..fc1638cd035ce465ef3e65f784d8ff98c03f3438 100644 (file)
--- a/sql/Pg-upgrade2/USTVA_abstraction.pl
+++ b/sql/Pg-upgrade2/USTVA_abstraction.pl
@@ -47,8 +47,8 @@ sub create_tables {
       },
   );
 
-  $self->db_query("DROP SCHEMA tax CASCADE;", 1);
-  map({ $self->db_query($_, 0); } @queries);
+  $self->db_query("DROP SCHEMA tax CASCADE;", may_fail => 1);
+  $self->db_query($_) for @queries;
 
   return 1;