Reverse sort (-r) does not work

[kurld]

Sort order is always ascending, even when -r is used. That's because:

1101: $adata = [ reverse @$adata ] if $revsort;

is overwriten by:

509: $j->{data} = [ sort { $a->{stamp} <=> $b->{stamp} } @{$jh->{data}}, @$ja ];

when called:

1161:write_json(catfile($absOut, 'data.json'), \%json, $odata->{data});