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

[mfinanz.git] / sql / Pg-upgrade2 / SKR04-3804-addition.pl

diff --git a/sql/Pg-upgrade2/SKR04-3804-addition.pl b/sql/Pg-upgrade2/SKR04-3804-addition.pl
index e11d7928ed27377bf62330becf8c52d76219733b..ce8618f6659c7277b0f5cafcc84f635e33ad52ce 100644 (file)
--- a/sql/Pg-upgrade2/SKR04-3804-addition.pl
+++ b/sql/Pg-upgrade2/SKR04-3804-addition.pl
@@ -110,6 +110,7 @@ SQL
   $sth_query->finish;
   $sth_insert->finish;
 
+  return 1;
 } # end run
 
 sub print_past_booking_warning {