diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-01-14 18:49:25 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-01-14 18:49:25 +0000 |
| commit | a60c0954410db87be540ee8439afcd54350bbb8e (patch) | |
| tree | 1a39a6e0941f3c706efe727a664534cce93143ee /ext | |
| parent | 1393e20655efb4bcc2062605bfe887dd5e634bc1 (diff) | |
| download | perl-a60c0954410db87be540ee8439afcd54350bbb8e.tar.gz | |
TIEARRAY updates - almost works ...
p4raw-id: //depot/ansiperl@424
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DB_File/DB_File.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm index 4e7f0c696a..812464361a 100644 --- a/ext/DB_File/DB_File.pm +++ b/ext/DB_File/DB_File.pm @@ -191,11 +191,7 @@ require DynaLoader; ); -sub FETCHSIZE -{ - my $self = shift ; - return $self->length - 1; -} +*FETCHSIZE = \&length; sub AUTOLOAD { my($constname); |