nqp:: message stoppable by RAKUDO_NO_DEPRECATIONS

rakudo · May 19, 2015 · 27e531b · 27e531b
1 parent f4de5f3
commit 27e531b
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -390,7 +390,9 @@ class Perl6::Actions is HLL::Actions does STDActions {
         $compunit.annotate('W', $*W);
 
         my @violations := @*NQP_VIOLATIONS;
-        if @violations {
+        if @violations &&
+          !+nqp::ifnull(nqp::atkey(nqp::getenvhash,'RAKUDO_NO_DEPRECATIONS'),0) {
+
             my $file := nqp::getlexdyn('$?FILES');
             my $bar  := nqp::gethostname() eq 'ns1'
               ?? ""