|
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 |
- |
|
|