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 (file)
--- 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;