diff options
| -rw-r--r-- | lib/MDK/Common/Func.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/MDK/Common/Func.pm b/lib/MDK/Common/Func.pm index 82811bb..12e8777 100644 --- a/lib/MDK/Common/Func.pm +++ b/lib/MDK/Common/Func.pm @@ -258,7 +258,8 @@ sub find_index(&@) { $_ = $_[$i]; &$f and return $i; } - die "find_index failed in @_"; + use Carp; + carp("find_index failed in @_") } sub map_each(&%) { my ($f, %h) = @_; |