diff options
Diffstat (limited to 'MDK/Common')
| -rw-r--r-- | MDK/Common/Func.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/MDK/Common/Func.pm b/MDK/Common/Func.pm index 6578010..56e032a 100644 --- a/MDK/Common/Func.pm +++ b/MDK/Common/Func.pm @@ -280,10 +280,12 @@ sub catch_cdie(&&) { } sub cdie { - my ($err, $f) = @_; + my ($err) = @_; foreach (@MDK::Common::Func::cdie_catches) { $@ = $err; - &{$_}(\$err) and return; + if (my $v = &{$_}(\$err)) { + return $v; + } } die $err; } |