Bug 20956: (QA follow-up) Restore info pretty

I restored the pretty code for the info file because the page needs to be able to wrap, like it does for other logs.

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Lisette Scheer <lisette@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@openfifth.co.uk>
This commit is contained in:
Lisette Scheer 2026-03-06 18:05:08 +00:00 committed by Martin Renvoize
parent f528142daa
commit 9d20ea636a
No known key found for this signature in database
GPG Key ID: 2D86E0EAEC83711B
1 changed files with 11 additions and 0 deletions

View File

@ -234,6 +234,17 @@ if ($do_it) {
}
}
}
if ( $result->{module} eq 'MEMBERS' ) {
my $json_engine = JSON->new->utf8->canonical(1)->pretty(1);
if ( $result->{info} && $result->{info} =~ /^[{\[]/ ) {
my $perl_info = $json_engine->decode( $result->{info} );
$result->{info} = $json_engine->encode($perl_info);
}
if ( $result->{diff} && $result->{diff} =~ /^[{\[]/ ) {
my $perl_diff = $json_engine->decode( $result->{diff} );
$result->{diff} = $json_engine->encode($perl_diff);
}
}
push @data, $result;
}
if ( $output eq "screen" ) {