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 | |
| parent | 80368503fa0e56f42725ce2936d9e73f6d9033b6 (diff) | |
| download | perl-96318ac814a21946aa21e73f380cb3082ee4edca.tar.gz | |
VERSION Patch
TieHash -> Tie::Hash Patch.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/GDBM_File/GDBM_File.pm | 15 | ||||
| -rw-r--r-- | ext/NDBM_File/NDBM_File.pm | 12 | ||||
| -rw-r--r-- | ext/ODBM_File/ODBM_File.pm | 12 |
3 files changed, 25 insertions, 14 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. diff --git a/ext/NDBM_File/NDBM_File.pm b/ext/NDBM_File/NDBM_File.pm index 53a136ebf0..339439c98f 100644 --- a/ext/NDBM_File/NDBM_File.pm +++ b/ext/NDBM_File/NDBM_File.pm @@ -1,12 +1,16 @@ package NDBM_File; -require TieHash; +use strict; +use vars qw($VERSION @ISA); + +require Tie::Hash; require DynaLoader; -@ISA = qw(TieHash DynaLoader); -$VERSION = $VERSION = "1.00"; +@ISA = qw(Tie::Hash DynaLoader); + +$VERSION = "1.00"; -bootstrap NDBM_File; +bootstrap NDBM_File $VERSION; 1; diff --git a/ext/ODBM_File/ODBM_File.pm b/ext/ODBM_File/ODBM_File.pm index 336af3dba1..a96916b6e0 100644 --- a/ext/ODBM_File/ODBM_File.pm +++ b/ext/ODBM_File/ODBM_File.pm @@ -1,12 +1,16 @@ package ODBM_File; -require TieHash; +use strict; +use vars qw($VERSION @ISA); + +require Tie::Hash; require DynaLoader; -@ISA = qw(TieHash DynaLoader); -$VERSION = $VERSION = "1.00"; +@ISA = qw(Tie::Hash DynaLoader); + +$VERSION = "1.00"; -bootstrap ODBM_File; +bootstrap ODBM_File $VERSION; 1; |