diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-08-09 09:42:18 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-08-09 09:42:18 +0000 |
| commit | a29f1f47ffda738e770dabccd5c8423b8bd0ab6c (patch) | |
| tree | 0995ab569cbdf761f212a18a3abbffcc718a705e /lib/MDK/Common | |
| parent | 72fdd732d99deed58aaf4813a38545dc1169c49f (diff) | |
| download | perl-MDK-Common-a29f1f47ffda738e770dabccd5c8423b8bd0ab6c.tar perl-MDK-Common-a29f1f47ffda738e770dabccd5c8423b8bd0ab6c.tar.gz perl-MDK-Common-a29f1f47ffda738e770dabccd5c8423b8bd0ab6c.tar.bz2 perl-MDK-Common-a29f1f47ffda738e770dabccd5c8423b8bd0ab6c.tar.xz perl-MDK-Common-a29f1f47ffda738e770dabccd5c8423b8bd0ab6c.zip | |
(find_index) restore die (we should have used Carp::croak() instead
but postponed this improvements after 2008.0)
Diffstat (limited to 'lib/MDK/Common')
| -rw-r--r-- | lib/MDK/Common/Func.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/MDK/Common/Func.pm b/lib/MDK/Common/Func.pm index 12e8777..82811bb 100644 --- a/lib/MDK/Common/Func.pm +++ b/lib/MDK/Common/Func.pm @@ -258,8 +258,7 @@ sub find_index(&@) { $_ = $_[$i]; &$f and return $i; } - use Carp; - carp("find_index failed in @_") + die "find_index failed in @_"; } sub map_each(&%) { my ($f, %h) = @_; |