1#!/usr/bin/perl
2# SPDX-License-Identifier: LGPL-2.1-or-later
3#
4# Copyright (C) 2013-2020 Andrey Ponomarenko's ABI Laboratory
5# Copyright (C) 2024 Code Construct
6
7# Copied from abi-dumper
8# Written by Andrey Ponomarenko
9sub dumpSorting($)
10{
11    my $Hash = $_[0];
12    return [] if(not $Hash);
13    my @Keys = keys(%{$Hash});
14    return [] if($#Keys<0);
15    if($Keys[0]=~/\A\d+\Z/)
16    { # numbers
17        return [sort {$a<=>$b} @Keys];
18    }
19    else
20    { # strings
21        return [sort {$a cmp $b} @Keys];
22    }
23}
24
25use Data::Dumper;
26
27# Prevent key lengths from changing the indentation
28$Data::Dumper::Indent = 1;
29$Data::Dumper::Sortkeys = \&dumpSorting;
30$/ = undef;
31print Dumper(eval(<>));
32