diff options
| author |   millert <millert@openbsd.org> | 2000-04-06 17:03:22 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2000-04-06 17:03:22 +0000 |
| commit | e2e5c5d36e4398ba94879f0a31b0307421edcfdb (patch) | |
| tree | 15b8472335eac9359a0b196bf3480d422401d8ff /gnu/usr.bin/perl/ext/GDBM_File/GDBM_File.pm | |
| parent | only call get_random_bytes() once in m_pad() (diff) | |
| download | wireguard-openbsd-e2e5c5d36e4398ba94879f0a31b0307421edcfdb.tar.xz wireguard-openbsd-e2e5c5d36e4398ba94879f0a31b0307421edcfdb.zip | |
perl-5.6.0 + local changes
Diffstat (limited to 'gnu/usr.bin/perl/ext/GDBM_File/GDBM_File.pm')
| -rw-r--r-- | gnu/usr.bin/perl/ext/GDBM_File/GDBM_File.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gnu/usr.bin/perl/ext/GDBM_File/GDBM_File.pm b/gnu/usr.bin/perl/ext/GDBM_File/GDBM_File.pm index 09df4373fb6..ab866eecabe 100644 --- a/gnu/usr.bin/perl/ext/GDBM_File/GDBM_File.pm +++ b/gnu/usr.bin/perl/ext/GDBM_File/GDBM_File.pm @@ -33,21 +33,21 @@ The available functions and the gdbm/perl interface need to be documented. =head1 SEE ALSO -L<perl(1)>, L<DB_File(3)>. +L<perl(1)>, L<DB_File(3)>, L<perldbmfilter>. =cut package GDBM_File; use strict; -use vars qw($VERSION @ISA @EXPORT $AUTOLOAD); +our($VERSION, @ISA, @EXPORT, $AUTOLOAD); require Carp; require Tie::Hash; require Exporter; use AutoLoader; -require DynaLoader; -@ISA = qw(Tie::Hash Exporter DynaLoader); +use XSLoader (); +@ISA = qw(Tie::Hash Exporter); @EXPORT = qw( GDBM_CACHESIZE GDBM_FAST @@ -59,14 +59,14 @@ require DynaLoader; GDBM_WRITER ); -$VERSION = "1.00"; +$VERSION = "1.03"; sub AUTOLOAD { my($constname); ($constname = $AUTOLOAD) =~ s/.*:://; my $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { - if ($! =~ /Invalid/) { + if ($! =~ /Invalid/ || $!{EINVAL}) { $AutoLoader::AUTOLOAD = $AUTOLOAD; goto &AutoLoader::AUTOLOAD; } @@ -78,7 +78,7 @@ sub AUTOLOAD { goto &$AUTOLOAD; } -bootstrap GDBM_File $VERSION; +XSLoader::load 'GDBM_File', $VERSION; # Preloaded methods go here. Autoload methods go after __END__, and are # processed by the autosplit program. |