This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bytes.pm doesn't check undefined subroutine calling
authorSADAHIRO Tomoyuki <BQW10602@nifty.com>
Thu, 26 May 2005 23:46:35 +0000 (08:46 +0900)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 26 May 2005 15:13:53 +0000 (15:13 +0000)
Message-Id: <20050526234321.92F1.BQW10602@nifty.com>

p4raw-id: //depot/perl@24585

lib/bytes.pm
lib/bytes.t

index 9a04491..a822279 100644 (file)
@@ -1,6 +1,6 @@
 package bytes;
 
-our $VERSION = '1.01';
+our $VERSION = '1.02';
 
 $bytes::hint_bits = 0x00000008;
 
@@ -14,7 +14,9 @@ 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 ($);
index 6b66a55..ea1b9f6 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 19;
+plan tests => 20;
 
 my $a = chr(0x100);
 
@@ -46,3 +46,9 @@ my $c = chr(0x100);
     is(bytes::index($c, "\x80"), 1, "bytes::index under use bytes looks at bytes");
     is(bytes::rindex($c, "\xc4"), 0, "bytes::rindex under use bytes looks at bytes");
 }
+
+{
+    fresh_perl_like ('use bytes; bytes::moo()',
+                    qr/Undefined subroutine bytes::moo/, {stderr=>1},
+                   "Check Carp is loaded for AUTOLOADing errors")
+}