allow exception objects to pass through pluggable

This commit is contained in:
Graham Knop 2009-05-21 14:49:14 +00:00
parent 43f09b433f
commit 0f27f27d68

View file

@ -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) {