enable argumentless sleep(); closes RT #57294

rakudo · May 31, 2010 · cde6abe · cde6abe
1 parent 4f9ca44
commit cde6abe
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/core/system.pm b/src/core/system.pm
@@ -17,9 +17,13 @@ sub run($commandline) {
     }
 }
 
-sub sleep($seconds) {         # fractional seconds also allowed
+sub sleep($seconds = Inf) {         # fractional seconds also allowed
     my $time1 = time;
-    pir::sleep__vN($seconds);
+    if $seconds ~~ Inf {
+        pir::sleep__vN(1e16) while True;
+    } else {
+        pir::sleep__vN($seconds);
+    }
     my $time2 = time;
     return $time2 - $time1;
 }