Author: pmichaud
Date: Sun Dec 21 09:15:20 2008
New Revision: 34214
Modified:
trunk/languages/perl6/src/builtins/any-list.pir
Log:
[rakudo]: Add +Inf and -Inf to min and max (RT #60868, cspencer++)
* Patch courtesy Cory Spencer.
Modified: trunk/languages/perl6/src/builtins/any-list.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/any-list.pir (original)
+++ trunk/languages/perl6/src/builtins/any-list.pir Sun Dec 21 09:15:20 2008
@@ -246,7 +246,9 @@
result = $P0
goto loop
fail:
- result = 'undef'()
+ .local num failres
+ failres = "+Inf"
+ .return (failres)
done:
.return (result)
.end
@@ -288,7 +290,9 @@
result = $P0
goto loop
fail:
- result = 'undef'()
+ .local num failres
+ failres = "-Inf"
+ .return (failres)
done:
.return (result)
.end
