version 1.169, 2003/03/28 18:29:49
|
version 1.170, 2003/04/01 19:28:05
|
Line 1283 sub new {
|
Line 1283 sub new {
|
if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE}, |
if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE}, |
&GDBM_READER(), 0640))) |
&GDBM_READER(), 0640))) |
{ |
{ |
untie $self->{PARM_HASH}; |
untie %{$self->{PARM_HASH}}; |
return undef; |
return undef; |
} |
} |
|
|
Line 1434 sub getIterator {
|
Line 1434 sub getIterator {
|
# unties the hash when done |
# unties the hash when done |
sub untieHashes { |
sub untieHashes { |
my $self = shift; |
my $self = shift; |
untie $self->{NAV_HASH}; |
untie %{$self->{NAV_HASH}}; |
untie $self->{PARM_HASH}; |
untie %{$self->{PARM_HASH}}; |
} |
} |
|
|
# Private method: Does the given resource (as a symb string) have |
# Private method: Does the given resource (as a symb string) have |