Merge branch 'b-3.6.1' of ../kivitendo-erp_20220811

[kivitendo-erp.git] / SL / DB / Object / Hooks.pm

diff --git a/SL/DB/Object/Hooks.pm b/SL/DB/Object/Hooks.pm
index ac3b0a2e60cf5779041c30d513db04a7b3951799..6a54869364cbe6715f06ef002b6b69f462227e94 100644 (file)
--- a/SL/DB/Object/Hooks.pm
+++ b/SL/DB/Object/Hooks.pm
@@ -44,9 +44,10 @@ sub run_hooks {
 
   foreach my $sub (@{ ( $hooks{$when} || { })->{ ref($object) } || [ ] }) {
     my $result = ref($sub) eq 'CODE' ? $sub->($object, @args) : $object->call_sub($sub, @args);
-    die SL::X::DBHookError->new(when   => $when,
-                                hook   => (ref($sub) eq 'CODE' ? '<anonymous sub>' : $sub),
-                                object => $object)
+    SL::X::DBHookError->throw(when        => $when,
+                              hook        => (ref($sub) eq 'CODE' ? '<anonymous sub>' : $sub),
+                              object      => $object,
+                              object_type => ref($object))
       if !$result;
   }
 }
@@ -121,8 +122,8 @@ C<after_xyz> function names above.
 An exception of C<SL::X::DBHookError> is thrown if any of the hooks
 returns a falsish value.
 
-This function is supposed to be called by L</SL::DB::Object::load>,
-L</SL::DB::Object::save> or L</SL::DB::Object::delete>.
+This function is supposed to be called by L<SL::DB::Object/"load">,
+L<SL::DB::Object/"save"> or L<SL::DB::Object/"delete">.
 
 =back