diff options
| author | Drahflow <drahflow@gmx.de> | 2013-09-27 21:55:38 +0200 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2013-09-27 21:55:38 +0200 |
| commit | 7521804dd8818778311720e4b0e1d69a029debb3 (patch) | |
| tree | ff5bd9db788386fd9b6fcdf2335eb34fe347d16d /interpreter | |
| parent | 00f07fb49ffd244cff7d34b8e060039268c5a1cd (diff) | |
interpreter now returns stable key sequence
Diffstat (limited to 'interpreter')
| -rw-r--r-- | interpreter/ElymasGlobal.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interpreter/ElymasGlobal.pm b/interpreter/ElymasGlobal.pm index 1d1770d..5d0fca2 100644 --- a/interpreter/ElymasGlobal.pm +++ b/interpreter/ElymasGlobal.pm @@ -545,7 +545,7 @@ EOPERL my $s = pop @$data or die "Stack underflow"; if(ref($s->[1]) eq 'ARRAY' and $s->[1]->[0] eq 'struct') { - my @keys = grep { /^[^ ]/ } keys %{$s->[0]}; + my @keys = sort grep { /^[^ ]/ } keys %{$s->[0]}; push @$data, [[map { [$_, 'string'] } @keys], ['array', '[]', [['range', 0, $#keys]], ['string']]]; } else { |