convert @row->{foo} into @{$row->{foo}}

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index ceb0d8e..0cdb77b 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -813,6 +813,9 @@ sub items {
        $code =~ s{\r}{}gs;
        $code =~ s{\n+$}{\n}s;
 
        $code =~ s{\r}{}gs;
        $code =~ s{\n+$}{\n}s;
 

+       # XXX convert @row->{foo} into @{$row->{foo}}
+       $code =~ s|\@(row->{[^}]+})|\@{\$$1}|gs;
+

        my $commit = $self->param('commit');
        my $test = $self->param('test');
 
        my $commit = $self->param('commit');
        my $test = $self->param('test');