Permalink
Browse files

Two pir:: => nqp:: in the optimizer.

  • Loading branch information...
jnthn committed Mar 16, 2013
1 parent d98dd54 commit 2a41b33411eb13a14df2fd4cb441419eb235d9ea
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/Perl6/Optimizer.pm
View
@@ -95,10 +95,11 @@ class Perl6::Optimizer {
nqp::die("CHECK FAILED:\n" ~ nqp::join("\n", @fails))
}
if +%!worrying {
- pir::printerr__vs("WARNINGS:\n");
+ my $err := nqp::getstderr();
+ nqp::printfh($err, "WARNINGS:\n");
my @fails;
for %!worrying {
- pir::printerr__vs($_.key ~ " (line" ~ (+$_.value == 1 ?? ' ' !! 's ') ~
+ nqp::printfh($err, $_.key ~ " (line" ~ (+$_.value == 1 ?? ' ' !! 's ') ~
nqp::join(', ', $_.value) ~ ")\n");
}
}

0 comments on commit 2a41b33

Please sign in to comment.