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_WRITER
);
-$VERSION = "1.08_01";
-$VERSION = eval $VERSION;
+# This module isn't dual life, so no need for dev version numbers.
+$VERSION = '1.15';
-sub AUTOLOAD {
- my($constname);
- ($constname = $AUTOLOAD) =~ s/.*:://;
- my ($error, $val) = constant($constname);
- Carp::croak $error if $error;
- no strict 'refs';
- *{$AUTOLOAD} = sub { $val };
- goto &{$AUTOLOAD};
-}
-
-XSLoader::load 'GDBM_File', $VERSION;
+XSLoader::load();
1;