[perl #63716] [PATCH] Implement handling of Ordergin $by in Range.min and Range.max.

[via RT]

# New Ticket Created by  Vasily Chekalkin 
# Please include the string:  [perl #63716]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=63716 >


---
 src/classes/Range.pir |   12 ++++++++++++
 1 files changed, 12 insertions(+), 0 deletions(-)


diff --git a/src/classes/Range.pir b/src/classes/Range.pir
index 6b7eeb9..4cdb54f 100644
--- a/src/classes/Range.pir
+++ b/src/classes/Range.pir
@@ -137,11 +137,23 @@ just return a clone of the Range.
 .namespace ['Range']
 
 .sub 'max' :method
+    .param pmc by       :optional
+    .param int has_by   :opt_flag
+    if has_by goto have_by
     .tailcall self.'to'()
+  have_by:
+    $P0 = self.'list'()
+    .tailcall $P0.'max'(by)
 .end
 
 .sub 'min' :method
+    .param pmc by       :optional
+    .param int has_by   :opt_flag
+    if has_by goto have_by
     .tailcall self.'from'()
+  have_by:
+    $P0 = self.'list'()
+    .tailcall $P0.'min'(by)
 .end
 
 .sub 'minmax' :method