From 301d8355885a7f6c3207ac2e19cab40a6863d1d5 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Sat, 5 Jan 2013 19:01:08 +0100
Subject: Performance

---
 interpreter/ElymasGlobal.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'interpreter')

diff --git a/interpreter/ElymasGlobal.pm b/interpreter/ElymasGlobal.pm
index 66fedf1..9cb0337 100644
--- a/interpreter/ElymasGlobal.pm
+++ b/interpreter/ElymasGlobal.pm
@@ -56,14 +56,14 @@ our $global = {
             my ($data) = @_;
             my $lscope = \{ ' parent' => $$scope };
             interpretCode(\@code, $data, $lscope);
-          }, ['func', Dumper(\@code)]];
+          }, ['func', 'Dumper(\@code)']];
         }, ['func', 'func-quoted'], \@code];
       } else {
         push @$data, [sub {
           my ($data) = @_;
           my $lscope = \{ ' parent' => $$scope };
           interpretCode(\@code, $data, $lscope);
-        }, ['func', Dumper(\@code)]];
+        }, ['func', 'Dumper(\@code)']];
       }
     }, ['func', '}'], 'quote'],
   "}'" => [sub {
@@ -85,13 +85,13 @@ our $global = {
           push @$data, [sub {
             my ($data) = @_;
             interpretCode(\@code, $data, $scope);
-          }, ['func', Dumper(\@code)]];
+          }, ['func', 'Dumper(\@code)']];
         }, ['func', 'func-quoted'], \@code];
       } else {
         push @$data, [sub {
           my ($data) = @_;
           interpretCode(\@code, $data, $scope);
-        }, ['func', Dumper(\@code)]];
+        }, ['func', 'Dumper(\@code)']];
       }
     }, ['func', '}'], 'quote'],
   'quoted' => [sub {
@@ -204,7 +204,7 @@ our $global = {
       my $struct = pop @$data;
       $member = $member->[0];
 
-      die "not a struct during member dereference in $struct" unless $struct->[1]->[0] eq 'struct';
+      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, $member) . "Cannot resolve requested member $member" unless exists $struct->[1]->[1]->{$member};
 
       push @$data, $struct->[0]->{$member};
-- 
cgit v1.2.3