Perl-Upgrade-Files: Nach Exception Rollback & bei Erfolg immer 1 zurückgeben

[kivitendo-erp.git] / sql / Pg-upgrade2 / USTVA_abstraction.pl

diff --git a/sql/Pg-upgrade2/USTVA_abstraction.pl b/sql/Pg-upgrade2/USTVA_abstraction.pl
index fc1638c..fe64a92 100644 (file)
--- a/sql/Pg-upgrade2/USTVA_abstraction.pl
+++ b/sql/Pg-upgrade2/USTVA_abstraction.pl
@@ -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;