diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-01-13 20:52:38 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-01-13 20:52:38 +0000 |
| commit | 93965878572d85daec78ce5ce1926f613d93803b (patch) | |
| tree | aec5117a48c78f3e9a90cdbc74ac94a96d1e18d5 /ext/DB_File/DB_File.pm | |
| parent | 65d0515c139c3d74c5955ce897f62cd229f1bcce (diff) | |
| download | perl-93965878572d85daec78ce5ce1926f613d93803b.tar.gz | |
tie array changes to core and tests
p4raw-id: //depot/ansiperl@418
Diffstat (limited to 'ext/DB_File/DB_File.pm')
| -rw-r--r-- | ext/DB_File/DB_File.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/ext/DB_File/DB_File.pm b/ext/DB_File/DB_File.pm index d08b21ceab..4e7f0c696a 100644 --- a/ext/DB_File/DB_File.pm +++ b/ext/DB_File/DB_File.pm @@ -106,7 +106,7 @@ package DB_File::RECNOINFO ; use strict ; -@DB_File::RECNOINFO::ISA = qw(DB_File::HASHINFO) ; +@DB_File::RECNOINFO::ISA = qw(DB_File::HASHINFO) ; sub TIEHASH { @@ -189,7 +189,13 @@ require DynaLoader; R_SNAPSHOT __R_UNUSED -); +); + +sub FETCHSIZE +{ + my $self = shift ; + return $self->length - 1; +} sub AUTOLOAD { my($constname); |