allow exception objects to pass through pluggable
This commit is contained in:
parent
43f09b433f
commit
0f27f27d68
1 changed files with 3 additions and 0 deletions
|
|
@ -195,6 +195,9 @@ sub instanciate {
|
|||
}
|
||||
my $object;
|
||||
if (! eval{$object = $module->$sub(@{$params}); 1}) {
|
||||
if ( ref $@ ) {
|
||||
die $@;
|
||||
}
|
||||
croak "Could not instanciate object using $sub on $module because $@";
|
||||
}
|
||||
if (defined $object) {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue