check for eval()ness by walking the call chain

src/Perl6/Actions.pm

@@ -62,13 +62,16 @@ method comp_unit($/, $key?) {
     }
 
     # run MAIN subs
-    # TODO: run this only when not in a module and not in eval
-    $mainline.push(
-        PAST::Op.new(
-            :pasttype('call'),
-            :name('&MAIN_HELPER')
-        )
-    );
+    # TODO: run this only when not in a module
+    # TODO: find a less hacky solution than IN_EVAL
+    unless IN_EVAL() {
+        $mainline.push(
+            PAST::Op.new(
+                :pasttype('call'),
+                :name('&MAIN_HELPER')
+            )
+        );
+    }
 
     # Create a block for the entire compilation unit.
     our $?RAKUDO_HLL;

src/glue/run.pir

@@ -21,6 +21,29 @@ of the compilation unit.
  .include 'sysinfo.pasm'
 .include 'iglobals.pasm'
 
+.sub 'IN_EVAL'
+    .local pmc interp
+    .local int level
+    .local int result
+    result = 0
+    level  = 0
+    interp = getinterp
+  loop:
+    inc level
+    $P0 = interp['sub'; level]
+    if null $P0 goto done
+    $S0 = $P0
+    if $S0 == 'eval' goto has_eval
+    goto loop
+
+  has_eval:
+    result = 1
+
+  done:
+    $P0 = box result
+    .return($P0)
+.end
+
 .sub '!UNIT_START'
     .param pmc mainline
     .param pmc args            :slurpy