X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FObject%2FHooks.pm;h=6a54869364cbe6715f06ef002b6b69f462227e94;hb=ed83f90c4d4cd38c50a563c4f7d7075d0254b045;hp=3839286ba141f50a702cac9f346fda513970de80;hpb=5aaa3c621371557ed9fde80ef6a07e2b7959c0cb;p=kivitendo-erp.git diff --git a/SL/DB/Object/Hooks.pm b/SL/DB/Object/Hooks.pm index 3839286ba..6a5486936 100644 --- 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' ? '' : $sub), - object => $object) + SL::X::DBHookError->throw(when => $when, + hook => (ref($sub) eq 'CODE' ? '' : $sub), + object => $object, + object_type => ref($object)) if !$result; } }