diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-08-01 21:03:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-08-01 21:03:12 +0000 |
| commit | 080a8401fcb33fa4a0372db3017edf84fb902868 (patch) | |
| tree | c962afa0a0cbe99c8a29644a3ac3a0b79a66a677 | |
| parent | 0b9eddfb93d15fa1ec21d0191d72b620df4cbccf (diff) | |
| download | perl-MDK-Common-080a8401fcb33fa4a0372db3017edf84fb902868.tar perl-MDK-Common-080a8401fcb33fa4a0372db3017edf84fb902868.tar.gz perl-MDK-Common-080a8401fcb33fa4a0372db3017edf84fb902868.tar.bz2 perl-MDK-Common-080a8401fcb33fa4a0372db3017edf84fb902868.tar.xz perl-MDK-Common-080a8401fcb33fa4a0372db3017edf84fb902868.zip | |
(find_index) pinpoint the actual bug (ie the caller)
(all other die should probably be altered the same way)
| -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) = @_; |