summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Test2/Event/V2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test2/Event/V2.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Test2/Event/V2.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test2/Event/V2.pm b/Master/tlpkg/tlperl/lib/Test2/Event/V2.pm
index 020cf2348e6..326a818f1d8 100644
--- a/Master/tlpkg/tlperl/lib/Test2/Event/V2.pm
+++ b/Master/tlpkg/tlperl/lib/Test2/Event/V2.pm
@@ -2,7 +2,7 @@ package Test2::Event::V2;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302175';
use Scalar::Util qw/reftype/;
use Carp qw/croak/;
@@ -60,8 +60,8 @@ sub facet_data {
for my $k (keys %$f) {
next if substr($k, 0, 1) eq '_';
- my $data = $f->{$k};
- my $is_list = reftype($data) eq 'ARRAY';
+ my $data = $f->{$k} or next; # Key is there, but no facet
+ my $is_list = 'ARRAY' eq (reftype($data) || '');
$out{$k} = $is_list ? [ map { {%{$_}} } @$data ] : {%$data};
}