# New Ticket Created by Vasily Chekalkin
# Please include the string: [perl #54740]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=54740 >
Hello.
Operator form of 'grep' and 'first' incorrectly uses :slurpy for List.
Small patch attached.
--
Bacek.
Index: src/classes/List.pir
===================================================================
--- src/classes/List.pir (revision 27774)
+++ src/classes/List.pir (working copy)
@@ -1092,7 +1146,7 @@
.sub grep :multi(_,'List')
.param pmc test
- .param pmc list :slurpy
+ .param pmc list
.return list.'grep'(test)
.end
@@ -1107,7 +1161,7 @@
.sub first :multi(_,'List')
.param pmc test
- .param pmc list :slurpy
+ .param pmc list
.return list.'first'(test)
.end
