X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fbytes.pm;h=b7fabbf359d1a85bc34e7934a2abaf1bcd89c27b;hb=906bad61c3bd0dd3a56a226b2981e4d14d5e71c9;hp=775b2cdab5d27e03be91c1697e3092de6fe00166;hpb=579f6b362c1dba5aba4049a91c9b6ef08e1b2c6d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/bytes.pm b/lib/bytes.pm
index 775b2cd..b7fabbf 100644
--- a/lib/bytes.pm
+++ b/lib/bytes.pm
@@ -1,6 +1,6 @@
 package bytes;
 
-our $VERSION = '1.00';
+our $VERSION = '1.03';
 
 $bytes::hint_bits = 0x00000008;
 
@@ -14,12 +14,14 @@ sub unimport {
 
 sub AUTOLOAD {
     require "bytes_heavy.pl";
-    goto &$AUTOLOAD;
+    goto &$AUTOLOAD if defined &$AUTOLOAD;
+    require Carp;
+    Carp::croak("Undefined subroutine $AUTOLOAD called");
 }
 
-sub length ($);
-sub chr ($);
-sub ord ($);
+sub length (_);
+sub chr (_);
+sub ord (_);
 sub substr ($$;$$);
 sub index ($$;$);
 sub rindex ($$;$);