diff options
| author | Drahflow <drahflow@gmx.de> | 2015-01-07 22:22:25 +0100 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2015-01-07 22:22:25 +0100 |
| commit | 354aacc3b66e0dabd6904a8aee350a6aa24b54f3 (patch) | |
| tree | ad576d5ad39219c9e3558cd7eb4b213e6f1397b0 | |
| parent | 836bb672dff477db6bf83659674587d64dd9929c (diff) | |
Fixed perl warning
| -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 373f951..61d32c4 100644 --- a/interpreter/ElymasGlobal.pm +++ b/interpreter/ElymasGlobal.pm @@ -328,7 +328,7 @@ EOPERL $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, [sort 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'; if($struct->[0]->{$member}->[2] eq 'active') { |