package Tie::RefHash;
-our $VERSION = '1.21';
+our $VERSION = '1.3_00';
=head1 NAME
first C<tie> the hash variable to this module. Normally, only the
keys of the tied hash itself are preserved as references; to use
references as keys in hashes-of-hashes, use Tie::RefHash::Nestable,
-included as part of Tie::Hash.
+included as part of Tie::RefHash.
It is implemented using the standard perl TIEHASH interface. Please
see the C<tie> entry in perlfunc(1) and perltie(1) for more information.
=head1 VERSION
-Version 1.21 22 Jun 1999
+Version 1.3
=head1 SEE ALSO
=cut
-require 5.003_11;
use Tie::Hash;
+use vars '@ISA';
@ISA = qw(Tie::Hash);
use strict;
}
package Tie::RefHash::Nestable;
-use vars '@ISA'; @ISA = qw(Tie::RefHash);
+use vars '@ISA';
+@ISA = 'Tie::RefHash';
sub STORE {
my($s, $k, $v) = @_;