From: Simon Cozens <simon@netthink.co.uk>
Date: Tue, 1 Aug 2000 06:55:19 +0000 (+0000)
Subject: Re: [ID 20000730.003] utf8::length() bad
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=daf4d4ea57f31fbfc23438d8d6f6bb9c48b870bd;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20000730.003] utf8::length() bad
Message-ID: <slrn8oct2n.19l.simon@justanother.perlhacker.org>

p4raw-id: //depot/perl@6593
---

diff --git a/lib/utf8.pm b/lib/utf8.pm
index 17ec37b..35be28c 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;