Add a null check to avoid exceptions in the backtrace printing; need …

…this for the release, but Parrot probably should not be putting them there in the first place, so investigate that too.
rakudo · Jul 22, 2009 · 23e8f09 · 23e8f09
1 parent e506d36
commit 23e8f09
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/perl6.pir b/perl6.pir
@@ -259,6 +259,7 @@ and report exceptions.
   it_loop:
     unless it goto it_loop_end
     cur_block = shift it
+    if null cur_block goto it_loop # XXX Why'd we have null anyway? Parrot bug?
 
     if cur_info != "" goto got_cur_info
     cur_info = 'format_location'(cur_block)