From 930a1a5ad5ff4477872dff3af49d9297e1bee347 Mon Sep 17 00:00:00 2001
From: Jonathan Scott Duff <duff@pobox.com>
Date: Thu, 31 May 2012 20:18:24 -0500
Subject: [PATCH] Use nqp::sleep

---
 src/core/control.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/core/control.pm b/src/core/control.pm
index 02eeac6b956..cafce4cc082 100644
--- a/src/core/control.pm
+++ b/src/core/control.pm
@@ -191,9 +191,9 @@ my $NaN = nqp::p6box_n(pir::set__Ns('NaN'));
 sub sleep($seconds = $Inf) {         # fractional seconds also allowed
     my $time1 = time;
     if $seconds ~~ $Inf {
-        pir::sleep__vN(1e16) while True;
+        nqp::sleep(1e16) while True;
     } else {
-        pir::sleep__vN($seconds.Num);
+        nqp::sleep($seconds.Num);
     }
     my $time2 = time;
     return $time2 - $time1;