diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2005-05-27 08:46:35 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-26 15:13:53 +0000 |
| commit | 5b5a256ab100c58f58aab1b20dc1f7777b745fd1 (patch) | |
| tree | 4602e65df8002f8cb6617f8b7bd08100e62636ef /lib/bytes.pm | |
| parent | 7423f6db106ad471398838e82e73b22d8c1e166e (diff) | |
| download | perl-5b5a256ab100c58f58aab1b20dc1f7777b745fd1.tar.gz | |
bytes.pm doesn't check undefined subroutine calling
Message-Id: <20050526234321.92F1.BQW10602@nifty.com>
p4raw-id: //depot/perl@24585
Diffstat (limited to 'lib/bytes.pm')
| -rw-r--r-- | lib/bytes.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/bytes.pm b/lib/bytes.pm index 9a04491daf..a8222794dd 100644 --- a/lib/bytes.pm +++ b/lib/bytes.pm @@ -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 ($); |