oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mget not working, but it's better than it was

Browse source
This commit is contained in:
JT Smith 2009-09-24 22:31:19 -05:00
parent 180c207335
commit 65239eee4d
2 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Cache.pm
View file

@ -136,11 +136,12 @@ sub mget {
foreach my $name (@{$names}) {
push @parsedNames, $self->parseKey($name);
}
$self->getMemcached->mget_into_hashref($self->getMemcached, \@parsedNames, my $result);
my %result;
$self->getMemcached->mget_into_hashref(\@parsedNames, \%result);
my @values = ();
foreach my $name (@{$names}) {
my $parsedName = shift @parsedNames;
push @values, ${$result->{$parsedName}};
foreach my $name (@parsedNames) {
next unless ref $result{$name};
push @values, ${$result{$name}};
}
return \@values;
}