Skip to content
Snippets Groups Projects
Commit 0e40bab9 authored by Clément OUDOT's avatar Clément OUDOT
Browse files

Do not sort array values (#1978)

parent a281d78b
No related branches found
No related tags found
No related merge requests found
......@@ -45,14 +45,14 @@ sub get {
}
elsif ( ref $value eq 'ARRAY' ) {
print "$key is an array with values:\n";
foreach my $avalue ( sort @$value ) {
foreach my $avalue (@$value) {
if ( ref $avalue eq 'HASH' ) {
print "\tHash with following keys:\n";
print "\t\t$_\n" foreach ( sort keys %$avalue );
}
elsif ( ref $value eq 'ARRAY' ) {
print "\tArray with following keys:\n";
print "\t\t$_\n" foreach ( sort @$avalue );
print "\t\t$_\n" foreach (@$avalue);
}
else {
$avalue //= '';
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment