Merge pull request #530 from Leont/debugger

Handle new if statement definition
rakudo · Sep 14, 2015 · bdcccf0 · bdcccf0
2 parents 3655638 + e7b27c4
commit bdcccf0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/perl6-debug.nqp b/src/perl6-debug.nqp
@@ -198,7 +198,7 @@ class Perl6::HookActions is Perl6::Actions {
 
     method statement_control:sym<if>($/) {
         if $*DEBUG_HOOKS.has_hook('statement_cond') {
-            my $from := $<sym>.from;
+            my $from := $<sym>[0].from;
             for $<xblock> {
                 my $ast := $_.ast;
                 $ast[0] := QAST::Stmts.new(