Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Deprecation messages now work on rakudo-moar
Additionally, replace the say2 sub here with note, which fulfills the
same purpose.
  • Loading branch information
ShimmerFairy committed Mar 12, 2014
1 parent a0a5990 commit b6e4a8e
Showing 1 changed file with 3 additions and 9 deletions.
12 changes: 3 additions & 9 deletions src/core/Deprecations.pm
Expand Up @@ -57,18 +57,12 @@ sub DEPRECATED ($alternative) {
$what.callsites{$callsite.file}{$callsite.line}++;
}

# XXX Explodes on Moar so far.
#?if !moar
END {
if my $message = Deprecation.report {
my Mu $err := nqp::getstderr();
my sub say2 ($s) { nqp::printfh($err, "$s\n") }

say2 $message;
say2 "Please contact the author to have these calls to deprecated code adapted,";
say2 "so that this message will disappear!";
note $message;
note "Please contact the author to have these calls to deprecated code adapted,";
note "so that this message will disappear!";
}
}
#?endif

# vim: ft=perl6 expandtab sw=4

0 comments on commit b6e4a8e

Please sign in to comment.