Grab call frame from outside of conditional

This is necessary due a bug in MoarVM
rakudo · Jul 29, 2014 · 33f6015 · 33f6015
1 parent 909e802
commit 33f6015
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Test.pm b/lib/Test.pm
@@ -352,8 +352,9 @@ sub proclaim($cond, $desc) {
       ~ "\n"
         if $perl6_test_times;
 
+    my $caller = callframe(3); # due to a bug in MoarVM, this callframe has to occur outside of the
+                               # unless block (see https://github.com/MoarVM/MoarVM/issues/120)
     unless $cond {
-        my $caller = callframe(3);
         if $desc ne '' {
             diag "\nFailed test '$desc'\nat {$caller.file} line {$caller.line}";
         } else {