diff options
Diffstat (limited to 'ext/DB_File')
| -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); |