View | Details | Raw Unified | Return to bug 20956
Collapse All | Expand All

(-)a/tools/viewlog.pl (-1 / +11 lines)
Lines 234-239 if ($do_it) { Link Here
234
                }
234
                }
235
            }
235
            }
236
        }
236
        }
237
        if ( $result->{module} eq 'MEMBERS' ) {
238
            my $json_engine = JSON->new->utf8->canonical(1)->pretty(1);
239
            if ( $result->{info} && $result->{info} =~ /^[{\[]/ ) {
240
                my $perl_info = $json_engine->decode( $result->{info} );
241
                $result->{info} = $json_engine->encode($perl_info);
242
            }
243
            if ( $result->{diff} && $result->{diff} =~ /^[{\[]/ ) {
244
                my $perl_diff = $json_engine->decode( $result->{diff} );
245
                $result->{diff} = $json_engine->encode($perl_diff);
246
            }
247
        }
237
        push @data, $result;
248
        push @data, $result;
238
    }
249
    }
239
    if ( $output eq "screen" ) {
250
    if ( $output eq "screen" ) {
240
- 

Return to bug 20956