From 86b1b2b43ac0dab28ca62addfab392cbd451b90f Mon Sep 17 00:00:00 2001 From: Elizabeth Mattijsen Date: Sun, 3 May 2015 16:03:30 +0200 Subject: [PATCH] Make nqp::ops warning a bit more camelia friendly --- src/Perl6/Actions.nqp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp index 21e15e22841..3f6cb7016ef 100644 --- a/src/Perl6/Actions.nqp +++ b/src/Perl6/Actions.nqp @@ -392,8 +392,11 @@ class Perl6::Actions is HLL::Actions does STDActions { my @violations := @*NQP_VIOLATIONS; if @violations { my $file := nqp::getlexdyn('$?FILES'); - my $text := "=============================================================================== -The use of nqp::operations has been deprecated for non-CORE code. Please + my $bar := nqp::gethostname() eq 'ns1' + ?? "" + !! '=============================================================================== +'; + my $text := $bar ~ "The use of nqp::operations has been deprecated for non-CORE code. Please change your code to not use these non-portable functions. If you really want to keep using nqp::operations in your Perl6 code, you must add a: @@ -415,9 +418,7 @@ Compilation unit '$file' contained the following violations: ~ " Line $line:\n" ~ " nqp::$oplist\n"; } - nqp::printfh(nqp::getstderr(),$text - ~ "=============================================================================== -"); + nqp::printfh(nqp::getstderr(),$text ~ $bar); } make $compunit; }