I have an interesting issue that I am not able to seem to get around.
I have a function in a lib that we use that has two referenced
hashes.
....
my $zone = $self->{'zone'};
my $params = $self->{'report-params'};
my %zone_list = ();
$count = $zone->generate_zone_list(\%zone_list,\%params);
----------------------------------
sub generate_zone_list {
my ($self,$results_hash,$params) = @_;
my $sched_id = %{$params}->scheduleId();
my $filekey = $filekey.$sched_id;
my $temp_file = "/tmp/.bw3-temp-${filekey}.tmp";
return $temp_file;
}
This is what I would expect this to work. If I don't pass params as a
reference it works with the following line:
my $sched_id = $params->scheduleId();
Anyone have an idea what might be going on here?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
