version 1.122, 2002/12/12 18:24:05
|
version 1.123, 2003/01/10 17:46:46
|
Line 985 sub new {
|
Line 985 sub new {
|
return undef; |
return undef; |
} |
} |
|
|
# Now copy the hashes for speed (?) |
$self->{NAV_HASH} = \%navmaphash; |
my %realnav; my %realparm; |
$self->{PARM_HASH} = \%parmhash; |
foreach (%navmaphash) { $realnav{$_} = $navmaphash{$_}; } |
|
foreach (%parmhash) { $realparm{$_} = $navmaphash{$_}; } |
|
$self->{NAV_HASH} = \%realnav; |
|
$self->{PARM_HASH} = \%realparm; |
|
|
|
bless($self); |
bless($self); |
$self->untieHashes(); |
$self->untieHashes(); |