Author: pmichaud
Date: Sat Jul 26 09:53:53 2008
New Revision: 29760
Modified:
trunk/languages/perl6/src/builtins/control.pir
Log:
[rakudo]: Update sleep() to return actual time slept. Sorta.
Modified: trunk/languages/perl6/src/builtins/control.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/control.pir (original)
+++ trunk/languages/perl6/src/builtins/control.pir Sat Jul 26 09:53:53 2008
@@ -114,8 +114,11 @@
.sub 'sleep'
.param num a
+ $N0 = time
sleep a
- .return (a)
+ $N1 = time
+ $N2 = $N1 - $N0
+ .return ($N2)
.end
=item eval
