X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a23454bb1b039a31b7f77710ff663fa9152d530c..fdebfd5d0c558cb156849b01c9c9268b29dc443b:/sql/Pg-upgrade2/USTVA_abstraction.pl

diff --git a/sql/Pg-upgrade2/USTVA_abstraction.pl b/sql/Pg-upgrade2/USTVA_abstraction.pl
index a1b4a9caa..fe64a9224 100644
--- 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;
 
@@ -147,7 +147,7 @@ sub do_copy {
 
 sub run {
   my ($self) = @_;
-  return $self->create_tables && $self->do_copy;
+  return $self->create_tables && $self->do_copy ? 1 : undef;
 }
 
 1;