diff options
| author | Paul Marquess <pmarquess@bfsec.bt.co.uk> | 1996-02-06 14:09:49 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-02-06 14:09:49 +0000 |
| commit | 96318ac814a21946aa21e73f380cb3082ee4edca (patch) | |
| tree | 7815c44ba8b73d6ac33185a5c86fa65bcb64cc9a /ext/GDBM_File | |
| parent | 80368503fa0e56f42725ce2936d9e73f6d9033b6 (diff) | |
| download | perl-96318ac814a21946aa21e73f380cb3082ee4edca.tar.gz | |
VERSION Patch
TieHash -> Tie::Hash Patch.
Diffstat (limited to 'ext/GDBM_File')
| -rw-r--r-- | ext/GDBM_File/GDBM_File.pm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/ext/GDBM_File/GDBM_File.pm b/ext/GDBM_File/GDBM_File.pm index ed80aa9c6b..3f1d83e004 100644 --- a/ext/GDBM_File/GDBM_File.pm +++ b/ext/GDBM_File/GDBM_File.pm @@ -39,12 +39,15 @@ L<perl(1)>, L<DB_File(3)>. package GDBM_File; +use strict; +use vars qw($VERSION @ISA @EXPORT $AUTOLOAD); + require Carp; -require TieHash; +require Tie::Hash; require Exporter; use AutoLoader; require DynaLoader; -@ISA = qw(TieHash Exporter DynaLoader); +@ISA = qw(Tie::Hash Exporter DynaLoader); @EXPORT = qw( GDBM_CACHESIZE GDBM_FAST @@ -56,12 +59,12 @@ require DynaLoader; GDBM_WRITER ); -$VERSION = $VERSION = "1.00"; +$VERSION = "1.00"; sub AUTOLOAD { - local($constname); + my($constname); ($constname = $AUTOLOAD) =~ s/.*:://; - $val = constant($constname, @_ ? $_[0] : 0); + my $val = constant($constname, @_ ? $_[0] : 0); if ($! != 0) { if ($! =~ /Invalid/) { $AutoLoader::AUTOLOAD = $AUTOLOAD; @@ -75,7 +78,7 @@ sub AUTOLOAD { goto &$AUTOLOAD; } -bootstrap GDBM_File; +bootstrap GDBM_File $VERSION; # Preloaded methods go here. Autoload methods go after __END__, and are # processed by the autosplit program. |