From cde6abe86278dd11e335d8b7bd24036dcbc51c14 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Mon, 31 May 2010 20:51:59 +0200
Subject: [PATCH] enable argumentless sleep(); closes RT #57294

---
 src/core/system.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/core/system.pm b/src/core/system.pm
index 6321c94eb49..e73e8f39353 100644
--- 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;
 }