make warnings about undefined values in regexes matches useful

before: perl6-m -e 'Any ~~ /./' use of uninitialized value of type Any in string context in any !cursor_init at gen/moar/stage2/QRegex.nqp:1068 perl6-m -e 'EVAL "Any ~~ /./"' use of uninitialized value of type Any in string context in any !cursor_init at gen/moar/stage2/QRegex.nqp:1069 after: perl6-m -e 'Any ~~ /./' use of uninitialized value of type Any in string context in block <unit> at -e:1 perl6-m -e 'EVAL "Any ~~ /./"' use of uninitialized value of type Any in string context in block <unit> at EVAL_0:1
rakudo · Jan 10, 2015 · ae9a738 · ae9a738
1 parent a81ce33
commit ae9a738
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/core/Backtrace.pm b/src/core/Backtrace.pm
@@ -71,7 +71,10 @@ my class Backtrace is List {
             next if $file eq 'src/gen/BOOTSTRAP.nqp' ||
                     $file eq 'src/gen/m-BOOTSTRAP.nqp' ||
                     $file eq 'src\\gen\\BOOTSTRAP.nqp' ||
-                    $file eq 'src\\gen\\m-BOOTSTRAP.nqp';
+                    $file eq 'src\\gen\\m-BOOTSTRAP.nqp' ||
+                    $file eq 'gen/parrot/stage2/QRegex.nqp' ||
+                    $file eq 'gen/jvm/stage2/QRegex.nqp' ||
+                    $file eq 'gen/moar/stage2/QRegex.nqp';
             last if $file eq 'src/stage2/gen/NQPHLL.nqp' ||
                     $file eq 'src\\stage2\\gen\\NQPHLL.nqp' ||
                     $file eq 'gen/parrot/stage2/NQPHLL.nqp' ||