diff options
author | 2013-03-25 20:40:40 +0000 | |
---|---|---|
committer | 2013-03-25 20:40:40 +0000 | |
commit | 48950c12d106c85f315112191a0228d7b83b9510 (patch) | |
tree | 54e43d54484c1bfe9bb06a10ede0ba3e2fa52c08 /gnu/usr.bin/perl/ext/GDBM_File/GDBM_File.pm | |
parent | avoid null dereference affecting mod_perl, Perl RT bug 116441 (diff) | |
download | wireguard-openbsd-48950c12d106c85f315112191a0228d7b83b9510.tar.xz wireguard-openbsd-48950c12d106c85f315112191a0228d7b83b9510.zip |
merge/resolve conflicts
(some more to do after this one)
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 | 20 |
1 files changed, 5 insertions, 15 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 0b4182c34d7..a051d58902a 100644 --- a/gnu/usr.bin/perl/ext/GDBM_File/GDBM_File.pm +++ b/gnu/usr.bin/perl/ext/GDBM_File/GDBM_File.pm @@ -43,12 +43,12 @@ package GDBM_File; 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 @@ -69,18 +69,8 @@ use XSLoader (); ); # This module isn't dual life, so no need for dev version numbers. -$VERSION = '1.10'; - -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; +$VERSION = '1.14'; + +XSLoader::load(); 1; |