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

rakudo · Mar 16, 2013 · 2a41b33 · 2a41b33
1 parent d98dd54
commit 2a41b33
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Perl6/Optimizer.pm b/src/Perl6/Optimizer.pm
@@ -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");
             }
         }