diff options
| author | Drahflow <drahflow@gmx.de> | 2013-01-09 02:44:02 +0100 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2013-01-09 02:44:02 +0100 |
| commit | 10ee55d9c70b411494117ea9f9a075fbfd28e57d (patch) | |
| tree | 1a66a6f582729cea4a9462240da272ba1d04075c /interpreter | |
| parent | 9c21758503564be12db9266dc50134933237431e (diff) | |
Better debugging.
Diffstat (limited to 'interpreter')
| -rw-r--r-- | interpreter/ElymasGlobal.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/interpreter/ElymasGlobal.pm b/interpreter/ElymasGlobal.pm index 06e9660..351826b 100644 --- a/interpreter/ElymasGlobal.pm +++ b/interpreter/ElymasGlobal.pm @@ -179,7 +179,7 @@ our $global = { } elsif(ref($type) eq 'ARRAY' and $type->[0] eq 'struct') { # TODO permitted for now } else { - die "mismatched types in array: " . Dumper($type) unless typeEqual($type, $t->[1]); + die "mismatched types in array: " . Dumper($type, $t) unless typeEqual($type, $t->[1]); } } else { $type = $t->[1]; @@ -208,7 +208,7 @@ our $global = { $member = $member->[0]; die "not a struct during member dereference in " . Dumper($struct) unless ref($struct->[1]) eq 'ARRAY' and $struct->[1]->[0] eq 'struct'; - die Dumper($struct, [keys $struct->[0]], $member) . "Cannot resolve requested member $member" unless exists $struct->[0]->{$member}; + die Dumper($struct, [sort keys $struct->[0]], $member) . "Cannot resolve requested member $member" unless exists $struct->[0]->{$member}; die "Resolved member $member was incorrectly stored as something non-arrayish" unless ref($struct->[0]->{$member}) eq 'ARRAY'; push @$data, $struct->[0]->{$member}; |
