version 1.410, 2008/01/20 01:52:47
|
version 1.411, 2008/01/24 22:12:02
|
Line 2299 sub parmval {
|
Line 2299 sub parmval {
|
my $hashkey = $what."|||".$symb; |
my $hashkey = $what."|||".$symb; |
|
|
if (defined($self->{PARM_CACHE}->{$hashkey})) { |
if (defined($self->{PARM_CACHE}->{$hashkey})) { |
if (wantarray) { |
if (ref($self->{PARM_CACHE}->{$hashkey}) eq 'ARRAY') { |
return @{$self->{PARM_CACHE}->{$hashkey}}; |
if (defined($self->{PARM_CACHE}->{$hashkey}->[0])) { |
} else { |
if (wantarray) { |
return $self->{PARM_CACHE}->{$hashkey}->[0]; |
return @{$self->{PARM_CACHE}->{$hashkey}}; |
} |
} else { |
|
return $self->{PARM_CACHE}->{$hashkey}->[0]; |
|
} |
|
} |
|
} else { |
|
return $self->{PARM_CACHE}->{$hashkey}; |
|
} |
} |
} |
|
|
my $result = $self->parmval_real($what, $symb, $recurse); |
my $result = $self->parmval_real($what, $symb, $recurse); |
$self->{PARM_CACHE}->{$hashkey} = $result; |
$self->{PARM_CACHE}->{$hashkey} = $result; |
if (wantarray) { |
if (wantarray) { |
return @{$result}; |
return @{$result}; |
} |
} |
return $result->[0]; |
return $result->[0]; |
} |
} |