Introduce RAKUDO_NO_DEPRECATIONS environment var

Mainly intended to be used when running smoke tests
rakudo · May 29, 2014 · cfc0b38 · cfc0b38
1 parent 9443056
commit cfc0b38
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/core/Deprecations.pm b/src/core/Deprecations.pm
@@ -80,10 +80,12 @@ sub DEPRECATED ($alternative, :$up = 1, :$what ) {
 } 
 
 END {
-    if my $message = Deprecation.report {
-        note $message;
-        note "Please contact the author to have these calls to deprecated code adapted,";
-        note "so that this message will disappear!";
+    unless %*ENV<RAKUDO_NO_DEPRECATIONS> {
+        if Deprecation.report -> $message {
+            note $message;
+            note "Please contact the author to have these calls to deprecated code adapted,";
+            note "so that this message will disappear!";
+        }
     }
 }