Ignore Nil statements.

tadzik · Aug 19, 2012 · eee670d · eee670d
1 parent d3ff8ec
commit eee670d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/bin/perl6-debug.nqp b/bin/perl6-debug.nqp
@@ -104,7 +104,8 @@ class Perl6::HookActions is Perl6::Actions {
             my $stmt := $/.ast;
             my $pot_hash := nqp::istype($stmt, QAST::Op) &&
                 ($stmt.name eq '&infix:<,>' || $stmt.name eq '&infix:<=>>');
-            if !$pot_hash && $*DEBUG_HOOKS.has_hook('statement_simple') {
+            my $nil := nqp::istype($stmt, QAST::Var) && $stmt.name eq 'Nil';
+            if !$pot_hash && !$nil && $*DEBUG_HOOKS.has_hook('statement_simple') {
                 $/.'!make'(QAST::Stmts.new(
                     QAST::Op.new(
                         :op('call'),