[rakudo]: Add +Inf and -Inf to min and max (RT #60868, cspencer++)

* Patch courtesy Cory Spencer. git-svn-id: https://svn.parrot.org/parrot/trunk@34214 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
ashgti · Dec 21, 2008 · 9d1f63d · 9d1f63d
1 parent 0bd1bd5
commit 9d1f63d
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/languages/perl6/src/builtins/any-list.pir b/languages/perl6/src/builtins/any-list.pir
@@ -246,7 +246,9 @@ the size of that file down and to emphasize their generic,
     result = $P0
     goto loop
   fail:
-    result = 'undef'()
+    .local num failres
+    failres = "+Inf"
+    .return (failres)
   done:
     .return (result)
 .end
@@ -288,7 +290,9 @@ the size of that file down and to emphasize their generic,
     result = $P0
     goto loop
   fail:
-    result = 'undef'()
+    .local num failres
+    failres = "-Inf"
+    .return (failres)
   done:
     .return (result)
 .end