=head1 AVAILABILITY
-Gdbm is available from any GNU archive. The master site is
-C<prep.ai.mit.edu>, but your are strongly urged to use one of the many
-mirrors. You can obtain a list of mirror sites by issuing the
-command C<finger fsf@prep.ai.mit.edu>.
+gdbm is available from any GNU archive. The master site is
+C<ftp.gnu.org>, but you are strongly urged to use one of the many
+mirrors. You can obtain a list of mirror sites from
+http://www.gnu.org/order/ftp.html.
=head1 BUGS
The available functions and the gdbm/perl interface need to be documented.
+The GDBM error number and error message interface needs to be added.
+
=head1 SEE ALSO
L<perl(1)>, L<DB_File(3)>, L<perldbmfilter>.
use strict;
use warnings;
-our($VERSION, @ISA, @EXPORT, $AUTOLOAD);
+our($VERSION, @ISA, @EXPORT);
require Carp;
require Tie::Hash;
require Exporter;
-use XSLoader ();
+require XSLoader;
@ISA = qw(Tie::Hash Exporter);
@EXPORT = qw(
GDBM_CACHESIZE
+ GDBM_CENTFREE
+ GDBM_COALESCEBLKS
GDBM_FAST
+ GDBM_FASTMODE
GDBM_INSERT
GDBM_NEWDB
GDBM_NOLOCK
+ GDBM_OPENMASK
GDBM_READER
GDBM_REPLACE
+ GDBM_SYNC
+ GDBM_SYNCMODE
GDBM_WRCREAT
GDBM_WRITER
);
-$VERSION = "1.06";
-
-sub AUTOLOAD {
- my($constname);
- ($constname = $AUTOLOAD) =~ s/.*:://;
- my ($error, $val) = constant($constname);
- Carp::croak $error if $error;
- eval "sub $AUTOLOAD { $val }";
- goto &$AUTOLOAD;
-}
+# This module isn't dual life, so no need for dev version numbers.
+$VERSION = '1.15';
-XSLoader::load 'GDBM_File', $VERSION;
+XSLoader::load();
1;