aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDrahflow <drahflow@gmx.de>2013-01-09 02:44:02 +0100
committerDrahflow <drahflow@gmx.de>2013-01-09 02:44:02 +0100
commit10ee55d9c70b411494117ea9f9a075fbfd28e57d (patch)
tree1a66a6f582729cea4a9462240da272ba1d04075c
parent9c21758503564be12db9266dc50134933237431e (diff)
Better debugging.
-rw-r--r--interpreter/ElymasGlobal.pm4
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};