From 29128a92909383f71cdd257b9c836be7ff690f97 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 31 Mar 2011 20:33:35 +0200 Subject: [PATCH] fix current dataset scalar value for lookup --- lib/MojoFacets/Data.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm index c6110d5..f89d50e 100644 --- a/lib/MojoFacets/Data.pm +++ b/lib/MojoFacets/Data.pm @@ -685,7 +685,7 @@ sub lookup { my $stat; $stat = Statistics::Descriptive::Full->new() if $stat_code; - foreach my $v ( @$vals ) { + foreach my $v ( ref $vals eq 'ARRAY' ? @$vals : ( $vals ) ) { foreach my $i ( @{ $lookup_path_col->{$on_path}->{$on_col}->{$v} } ) { $on = $items->[$i]; #warn "XXX lookup code $v $i ",dump $on; -- 2.20.1