diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2000-08-01 06:55:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-11 01:30:16 +0000 |
| commit | daf4d4ea57f31fbfc23438d8d6f6bb9c48b870bd (patch) | |
| tree | 17462a874d3aca8225dec37099135b3d019aae60 /lib/utf8.pm | |
| parent | 157b066d3e26f62c196b73acfe1e68a07ecbf2dd (diff) | |
| download | perl-daf4d4ea57f31fbfc23438d8d6f6bb9c48b870bd.tar.gz | |
Re: [ID 20000730.003] utf8::length() bad
Message-ID: <slrn8oct2n.19l.simon@justanother.perlhacker.org>
p4raw-id: //depot/perl@6593
Diffstat (limited to 'lib/utf8.pm')
| -rw-r--r-- | lib/utf8.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/utf8.pm b/lib/utf8.pm index 17ec37bbe2..35be28caa7 100644 --- a/lib/utf8.pm +++ b/lib/utf8.pm @@ -13,7 +13,8 @@ sub unimport { sub AUTOLOAD { require "utf8_heavy.pl"; - goto &$AUTOLOAD; + goto &$AUTOLOAD if defined &$AUTOLOAD; + Carp::croak("Undefined subroutine $AUTOLOAD called"); } 1; |